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:
Postar um comentário