如何在程序启动默认浏览器与电子邮件系统

如何在程序启动默认浏览器与电子邮件系统

（加入日期:2003-6-5）

【保存文章至硬盘】【打印文章】【字体：大
中 小】

分享到： 0
A：方法有二：

方法1：

//打开浏览器

string url

inet iinet_base

url = "http://pbsite.yeah.net"

GetContextService("Internet", iinet_base)

iinet_base.HyperlinkToURL(url)

//电子邮件

string url

inet iinet_base

url = "mailto:ferryman@163.net"

GetContextService("Internet", iinet_base)

iinet_base.HyperlinkToURL(url)

方法2：

//打开浏览器

string ls_ferryman,ls_null,ls_oper

ls_ferryman = "http://pbsite.yeah.net/"

setnull(ls_null)

ls_oper = "open"

ShellExecute(handle(parent),ls_oper,ls_ferryman,ls_null,ls_null,0)

//电子邮件

string ls_ferryman,ls_null,ls_oper

ls_ferryman = "mailto:ferryman@163.net"

setnull(ls_null)

ls_oper = "open"

ShellExecute(handle(parent),ls_oper,ls_ferryman,ls_null,ls_null,0)