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+