Exe aus Ressoruce extrahieren

[Jens Schumann]

Hallo,
probier es mal damit.

Delphi-Quellcode:

...
var
  Path : String;
  aRes : TResourceStream;
begin
  Path:=ExtractFilePath(Application.ExeName);
  Path:=IncludeTrailingBackSlash(Path);
  aRes:=TResourceStream.Create(hInstance,'MYEXE','EXEDATA');
  Try
    aRes.SaveToFile(Path+'test.exe');
    ShellExecute(Handle,'open',PChar(Path+'test.exe'),Nil,Nil,SW_SHOW);
  Finally
    aRes.Free;
    end;
end;

Code ist getestet und funktioniert

Hier die Resourcendatei

Code:

MYEXE EXEDATA "test.exe"