Dicas - Executar programas externos

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Como executar programas externos ao Delphi.

Como executar programas externos ao Delphi

 

Crie uma aplicação, adicione ao Form dois botões. O botão 1 abrirá o Windows Explorer, enquanto o botão 2 abrirá o Campo Minado. Copie o código abaixo:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  WinExec('C:\WINDOWS\explorer.exe', SW_SHOW);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  WinExec('C:\WINDOWS\system32\winmine.exe', SW_SHOW);

end;

 

Você poderá abrir qualquer programa que desejar, entretanto, deverá ser escrito no código todo o caminho até o executável desejado, mais o nome do executável e sua extensão (tudo isso no primeiro parâmetro do comando WinExec). Os testes foram realizados no Windows XP, ou seja, em outra versão do Windows, o caminho até os executáveis acima poderá ser diferente.

 

por Erick Rhamnusia

uploader@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?