Boucle pour utiliser des ressources

Résolu
Signaler
-
 Utilisateur anonyme -
Salut pour utiliser une ressource on peut utiliser la procedure suivante :

Procedure Extraire(FileName : String);
Var
RS:TResourceStream;
FS : TFileStream;
begin
RS:=TResourceStream.Create(hInstance,FileName,RT_RCDATA);
try
FS:=TFileStream.create(ExtractFilePath(Application.ExeName)+FileName, fmCreate);
FS.CopyFrom(RS, 0);
finally
RS.Free;
FS.Free;
end;

Imaginez que l'on a plusieurs ressources

Comme faire une boucle pour extraire toutes les ressources ? En effet j'ai pas trouver de propriétés pour compter le nombres de fichiers présents

Merci a+