uses
ShellApi;procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, 'OPEN', PChar(TLabel(Sender).Caption), nil, nil, SW_SHOW);
end;
ShellApi;procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, 'OPEN', PChar(TLabel(Sender).Caption), nil, nil, SW_SHOW);
end;
begin
Label1.Caption := 'http:\\www.csdn.net';
// Label1.Caption := 'mailto:[email protected]';
end;