Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) delphi


spyder

Pergunta

7 respostass a esta questão

Posts Recomendados

  • 0

Executavel dentro de um executavel

http://forum.clubedelphi.net/viewtopic.php...b2e64b6c383bfa9

Consegui fazer o que deseja. Entra na página principal do ClubeDelphi e vai no link Artigos.

Procure pelo arquivo "Arquivos de Recursos", fui eu que redigi. Lá dá pra você ter uma boa

idéia do que vai ter que fazer, é facinho, mas como estou no trampo não posso ficar acessando muito

a net. Se tiver dúvidas, me mande email que te mando um exemplo de casa.

Até mais.

_________________

Adriano Santos

Editor Técnico da Revista ClubeDelphi.

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

caso não tenha conseguido vizualizar o codigo, vou postar para voce

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;

OBS: voce tem que saber usar o arquivo de recursos do delphi

abraço

Editado por Jhonas
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...