如何在程序启动默认浏览器与电子邮件系统
<P>方法有二：</P><P><BR>方法1：<BR>//打开浏览器<BR>string url<BR>inet iinet_base<BR>url = "http://pbsite.yeah.net"<BR>GetContextService("Internet", iinet_base)<BR>iinet_base.HyperlinkToURL(url)<BR>//电子邮件<BR>string url<BR>inet iinet_base<BR>url = "mailtferryman@163.net"<BR>GetContextService("Internet", iinet_base)<BR>iinet_base.HyperlinkToURL(url)</P>
<P><BR>方法2：<BR>//打开浏览器<BR>string ls_ferryman,ls_null,ls_oper<BR>ls_ferryman = "http://pbsite.yeah.net/"<BR>setnull(ls_null)<BR>ls_oper = "open"<BR>ShellExecute(handle(parent),ls_oper,ls_ferryman,ls_null,ls_null,0)<BR>//电子邮件<BR>string ls_ferryman,ls_null,ls_oper<BR>ls_ferryman = "mailtferryman@163.net"<BR>setnull(ls_null)<BR>ls_oper = "open"<BR>ShellExecute(handle(parent),ls_oper,ls_ferryman,ls_null,ls_null,0)</P>
页:
[1]