Zitat von
Luckie:
Wozu FindFirst FindNext? Nimm die KLasse TResourceStream und speicher die Ressourcen im entspechenden Verzeichnis ab.
Ich habe aber mehrere verschiedene Dateien
Für eine Datei ist klar :
Delphi-Quellcode:
implementation
{$R *.dfm}
{$R AlleDateien.res}
procedure TForm1.Button1Click(Sender: TObject);
var
ResStream: TResourceStream;
begin
ResStream := TResourceStream.Create(HInstance, 'Sounds', 'WAV');
ResStream.SaveToFile('Sound1.wav');
ResStream.Free;
end;
Wie kann ich alle Dateien in einen beliebigen Ordner entpacken ?
Eine ähnliche Funktion habe ich gefunden :
http://www.delphipraxis.net/internal...ct.php?t=61185
<>