29 de out. de 2007

Quer chamar outro programa num programa seu no delphi 7?

Conteudo adaptado de Mep Sites - Dicas de Delphi, veja a dica original aqui.

Você quer chamar no seu programa em delphi 7 outro programa?
Declare a unit ShellAPI na seção uses e use isso:

ShellExecute(0, Nil, PChar(regedit), Nil, Nil, SW_NORMAL); //Chama o editor de registro do windows

Vai usar muito isso? Crie uma função:

Na seção type no programa ponha isso
procedure AbreAlgo(algo: String);

E a função:

procedure TForm1.AbreAlgo(algo: String);
begin
ShellExecute(0, Nil, PChar(algo), Nil, Nil, SW_NORMAL);
end;

Chame-a assim:
AbreAlgo ('regedit') //Editor do registro

Voce pode substituir o regedit por outra coisa, ou um site da web:

AbreAlgo ('http://www.dicasinfo.pop.com.br')

Nenhum comentário: