Como compilar 2 projetos Delphi num soh .exe um projeto cha

Question

Estou com um problemas pois preciso q no momento em que inicio um form Inicial (naum splash) eu tenha a op��o de executar outro projeto compilado no mesmo .exe.   Obrigado...

Adriano Santos · Answer

Procure um artigo que escrevi na se��o Artigos aqui do ClubeDelphi. O nome do artigo � : [b:53b4f8f76c][color=red:53b4f8f76c]Arquivos de Recursos[/color:53b4f8f76c][/b:53b4f8f76c]

Aqui eu coloquei no onCreate, mas voc� pode colocar em qualquer lugar.
O segredo est� no WinExec depois que o arquivo execut�vel � �descompactado� (extra�do) de dentro do seu execut�vel principal.

procedure TForm1.FormCreate(Sender: TObject);
    procedure CopiarEExecutar;
    var
      DirDestino : String;
      NomeArquivo: String;
      Fres : TResourceStream;
      fFile : TFileStream;
    begin
      DirDestino := �C:\Temp\�;
      NomeArquivo := �MeuExecutavel.exe�;
      {Cria uma inst�ncia de TResourceStream para manipul�-lo mais tarde}
      Fres := TResourceStream.Create(0,�MEURECURSO_NO_PROJETO�,RT_RCDATA);
      {Cria em mem�ria o arquivo gravado no Resource}
      fFile := TFileStream.Create(DirDestino + NomeArquivo,fmCreate);
      try
        {Copia do Resource}
        Ffile.CopyFrom(Fres,Fres.Size);
        MessageDlg(�O Arquivo: � + NomeArquivo + � foi copiado com �xito e ser� executado.�,mtError,[mbOK],0);
        WinExec(PChar(DirDestino + NomeArquivo), SW_SHOWNORMAL);
      finally
        {Libera as vari�veis necess�rias.}
        Fres.Free;
        Ffile.Free;
      end;
    end;
begin
  CopiarEExecutar;
end;

[i:53b4f8f76c][/i:53b4f8f76c]

Adriano Santos · Answer

Cometi um erro.O WinExec tem que vir depois que a vari�vel TResourceStream for liberada, caso contr�rio o programa n�o ser� aberto. Veja o fonte correto:[code:1:f88e25f51e]procedure TForm1.FormCreate(Sender: TObject);    procedure CopiarEExecutar;    var      DirDestino : String;      NomeArquivo: String;      Fres : TResourceStream;      fFile : TFileStream;    begin      DirDestino := �C:Temp�;      ForceDirectories(DirDestino);      NomeArquivo := �Calc.exe�;      {Cria uma inst�ncia de TResourceStream para manipul�-lo mais tarde}      Fres := TResourceStream.Create(0,�MEU_RECURSO�,RT_RCDATA);      {Cria em mem�ria o arquivo gravado no Resource}      fFile := TFileStream.Create(DirDestino + NomeArquivo,fmCreate);      try        {Copia do Resource}        Ffile.CopyFrom(Fres,Fres.Size);        MessageDlg(�O Arquivo: � + NomeArquivo + � foi copiado com �xito e ser� executado.�,mtError,&#91;mbOK&93;,0);      finally        {Libera as vari�veis necess�rias.}        Fres.Free;        Ffile.Free;      end;      WinExec(PChar(DirDestino + NomeArquivo), SW_SHOWNORMAL);    end;begin  CopiarEExecutar;end;[/code:1:f88e25f51e]...

F�rum Como compilar 2 projetos Delphi num soh .exe um projeto cha #288168