Delphi实现超级链接

在uses部分加入：

uses Shellapi;
　　接着在需要超级链接的地方使用
SellExecute(handle,nil,pchar('mailto:[email protected]'),nil,nil,sw_shownormal);
　　其中pchar()中的mailtos是打开邮件程序的，可以换成http://、ftp://、gopher://、new:、telnet:等多种形式

链接的视觉效果

　　要有类似WIN98那样指向字体，该字体就出现下划线，鼠标指针变为一支手指，按下后就打开浏览器或邮件编写器的功能，按下列办法做（该方法只是在前面讲的实现超链接的方法上加入一些效果）：
　　先在一个窗体中加入一个Label1，加入下列代码
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
 label1.Font.Color:=clBlack;
 label1.Cursor:=crdefault;
 label1.Font.Style:=[];
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
 label1.Font.Color:=clred;
 label1.Cursor:=crHandPoint;
//  label1.Font.Style:=[fsUnderline];
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Shellexecute(handle,nil,pchar('mailto:[email protected]'),nil,nil,sw_shownormal);
end;
再将Label1.Cursor设为crHandPoint，Label1的OnMouseMove事件设为Label1MouseMove， Form1的OnMouseMove事件设为FormMouseMove，Label1的OnClick事件设为Label1Click，那么就这种效果了

http://huzpj.blog.163.com/blog/static/1969667200821294129224/