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
