如何在程序启动默认浏览器与电子邮件系统
【打印文章】
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)
方法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)
本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】