Ressource komplett in Temp extrahieren

[taktaky]

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


<>