实现超级链接
在程序中实现打开浏览器，打开邮件程序的功能首先要在
uses部分加入
uses Shellapi;
接着在需要超级链接的地方使用
SellExecute(handle, nil,pchar('mailto:[email protected]'), 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');
接着在需要超级链接的地方使用
SellExecute(handle, nil,pchar('mailto:[email protected]'), 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');