Código
procedure TForm1.StaticText4Click(Sender: TObject);
begin
shellexecute(handle,'open','mailto:felipe@delphi.eti.br',nil,nil,sw_show);
end;
//Com Hyperlink:
procedure TForm1.Label1Click(Sender: TObject);
begin
shellexecute(handle,'open','http://www.delphi.eti.br',
nil,nil,sw_show);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009