实现超级链接 (2000年8月30日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 20 行

实现超级链接 (2000年8月30日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:787  
(http://www.codesky.net)  

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

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