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

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)