quarta-feira, 25 de novembro de 2009

Abrindo o browser ou e-mail ao clicar num label ou timage

public
{ Public declarations }
procedure Executa(const aAdress: String);

//Declare a biblioteca ShellAPI na cláusula uses do Form


procedure TForm1.Executa(const aAdress: String);
var
buffer: String;
begin
buffer := aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;

//Adicione o código abaixo no evento OnClick do Label1 - aqui será aberto o Outlook para o envio de e-mails

procedure TForm1.Label1Click(Sender: TObject);
begin
Executa('mailto: miguelmm3@ibest.com.br ');
end;

//Adicione o código abaixo no evento OnClick do Image1

procedure TForm1.Image1Click(Sender: TObject);
begin
Executa('http://www.miguelmm3.kit.net');
end;

Nenhum comentário:

Postar um comentário