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;