Hi.
Ich versuche verzweifelt eine Ressource (exe Datei) zu extrahieren.
Ist ein simples Testprogramm das keine andere Funktion hat.
Ich habe es angehängt, weil es einfach nicht klappen will.
Die Ressource kann NIE gefunden werden, egal was ich angebe.
Delphi-Quellcode:
Var
MeinFileStream: TFileStream;
RS: TResourceStream;
begin
SaveDialog1.Execute;
RS := TResourceStream.Create(
Form1.Handle,
// Handle deiner Anwendung/DLL
'
1',
// Name der Ressource
RT_RCDATA);
// in diesem Fall ist es ein RCDATA resource type
MeinFileStream:=TFileStream.Create(SaveDialog1.FileName, fmCreate);
MeinFileStream.CopyFrom(RS, RS.Size);
MeinFileStream.Free;
Die Ressource 1 kann nie gefunden werden.
Wäre nett wenn jemand mein Beispiel im Anhang korrigieren könnte.
thx 4 help