Resource Programm kopieren

[Blackheart]

Habs hinbekommen.

Delphi-Quellcode:

var
 Stream : TResourcestream;
begin
  Stream := TResourcestream.Create(HINSTANCE,'MYExe',RT_RCDATA);
  if not FileExists('C:\test.exe') then Stream.SaveToFile('C:\test.exe') else ShowMessage('Fehler');
  Stream.Free;

Blackheart