实现超级链接

在程序中实现打开浏览器，打开邮件程序的功能首先要在uses部分加入uses Shellapi;
接着在需要超级链接的地方使用
SellExecute(handle,nil,pchar('mailto:guihong@163.net'),nil,nil,sw_shownormal);
其中pchar()中的mailtos是打开邮件程序的，可以换成http://、ftp://、gopher://、new:、telnet:等多种形式实现打开文件,打开Windows已经注册的文件其实很简单，根据以下代码定义一个过程：
procedure URLink(URL:PChar);
begin
  ShellExecute(0, nil, URL, nil, nil, SW_NORMAL);
end;
在要调用的地方使用URLink('Readme.txt');
如果是链接主页的话，那么改用URLink('http://gui.yeah.net');