[Tutorial] Colocar link para site,e-mail, abrir arquivos. [DELPHI]

[~ Heatlex. 11]

Declare a unit ShellAPI na seção uses, e utilize o código seguinte, por exemplo, no evento onClick de algum objeto:

 

Código:

ShellExecute(0, Nil, PChar('link removido'), Nil, Nil, SW_NORMAL);

 

Com esse método você abre algum item como se o usuário o tivesse executado, por exemplo, pode ser um arquivo, uma linha de comando, um programa, etc. Para e-mail, coloque mailto:[email protected] no lugar do site.

 

Se vocÊ utilizar muito isso, pode criar uma função ou procedimento:

 

Código:

procedure AbreLink(link: String);

begin

ShellExecute(0, Nil, PChar(link), Nil, Nil, SW_NORMAL);

end;

 

E chame-a assim:

 

AbreLink('##');

 

ou para um programa:

 

AbreLink('iexplore.exe'); //abre o Internet Explorer

 

Veja que o tipo a ser aberto deve ser convertido com a função PChar, não sendo uma simples string

['Leozin 34]

Conteúdo já existente, antes de postar um tópico, certifique-se que ele ainda não foi postado, para isto, use a ferramenta Pesquisar.

 

Fechado.