Resources - exe dentro de exe |
Top Previous Next |
|
Incluindo um EXE dentro de outro:
1. crie um arquivo RES. O fonte é .RC e tem isto: ARJ EXECUTAVEL "m:\samples\exe\Resource\Arj.exe" Compile com o BRCC32.EXE
2. No fonte de seu programa coloque:
{$R RECURSOS.RES}
procedure TForm1.ExtraiEXE; var Res : TResourceStream; begin if not FileExists(mlDirExe + 'ARJ.EXE') then begin Res := TResourceStream.Create(hInstance, 'ARJ', Pchar('EXECUTAVEL')); Res.SavetoFile(mlDirEXE + 'Arj.exe'); Res.Free; end; end;
|