实现超级链接
在程序中实现打开浏览器，打开邮件程序的功能首先要在uses部分加入
uses Shellapi;
　　接着在需要超级链接的地方使用
SellExecute(handle,nil,pchar('mailto:robot@126.com'),nil,nil, sw_shownormal);
　　其中pchar()中的mailtos是打开邮件程序的，可以换成http://、ftp://、gopher://、new:、telnet:等多种形式 


--------------------------------------------------------------------------------

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

procedure TForm1.FormMouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);
begin
Label1.Font.Style:=[fsbold];
Label1.Font.Color :=clmaroon;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Shellexecute(handle,nil,pchar('mailto:robot@126.com'),nil,nil, sw_shownormal);
end; 

再将Label1.Cursor设为crHandPoint，Label1的OnMouseMove事件设为Label1MouseMove，Form1的OnMouseMove事件设为FormMouseMove，Label1的OnClick事件设为Label1Click，那么就这种效果了。 


--------------------------------------------------------------------------------

打开拨号连接
调用拨号网络里的拨号程序来连接：其中'连接Internet'为你创建的拨号程序名称
winexec('rundll32.exe rnaui.dll,RnaDial '+'连接Internet',9);