Mep Sites: Dicas de Delphi - Colocar link para site, e-mail, abrir arquivos, etc

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

ShellExecute(0, Nil, PChar('http://www.mepsites.cjb.net'), 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:teste@com.br no lugar do site.

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

procedure AbreLink(link: String);
begin
ShellExecute(0, Nil, PChar(link), Nil, Nil, SW_NORMAL);
end;

E chame-a assim:

AbreLink('http://www.mepsites.cjb.net');

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.