实现超级链接
2010-01-02 21:01
148 查看
在程序中实现打开浏览器,打开邮件程序的功能首先要在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');
接着在需要超级链接的地方使用
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');
相关文章推荐
- 在Swing的JEditorPane控件中实现超级链接的CSS定义
- 结合Html/js/css实现超级链接访问JavaScript的事件!(实例)
- Delphi实现超级链接
- [WINFORM] C#下的winform编程如何在窗体中实现超级链接
- Asp.net打开新窗口或实现超级链接的多种方法!(转)
- VC超级链接的设计与实现
- Android通过SpannableString实现超级链接 点击textview某些文字跳转
- Android 实现文本超级链接
- 如何去掉图片点击后的超级链接产生的虚框问题(两种实现方法)
- 利用jquery实现链接文字截断显示,超级方便
- CSS定义Hover实现文字变大的超级链接
- CSS定义Hover实现文字变大的超级链接
- 去除超级链接的下划线以及在超级链接上实现鼠标悬停变色
- VC超级链接的设计与实现 (通过CHyperLinker类来实现)
- CSS实现超级链接需要通过双击后跳转
- jsp用超级链接方式实现“目标另存为”功能
- javascript使用switch case实现动态改变超级链接文字及地址
- CSS实现超级链接需要通过双击后跳转
- VC超级链接的设计与实现 (通过CHyperLinker类来实现)
- javascript使用switch case实现动态改变超级链接文字及地址