per Resource integrierte exe aus exe extrahieren

[The-X]

Delphi-Quellcode:

procedure WriteStub(S:String);
Var TRS:TResourceStream;
begin
 TRS:=TResourceStream.Create(HInstance,'rep_exe','RCDATA');
 try TRS.SaveToFile(S); finally TRS.Free;end;
end;

Fertig Hab ich aus meinem OEM-Compiler übernommen