如何做超级链结(30分)

  • 主题发起人 主题发起人 xiongyp
  • 开始时间 开始时间
X

xiongyp

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在关于窗口中加入我的email的超级链结,我是用shellexecute(handle,nil,
pchar('C:/Program Files/Outlook Express/msimn'),nil,nil,sw_shownormal);
但这只是启动了outlook的主窗口。我想问的是:怎样直接启动outlook的新邮件窗口,
并且在收件人档中显示我的email地址。谢谢!
 
要想像你这样的做,首先你要设好你的OUTLOOK,设定你的系统默认EMAIL客户端软件是
OUTLOOK,(在IE的选项里设的);
要在收件人档中显示你的EMAIL地址是要你自己在OUTLOOK里设的。因为我不是用OUTLOOK,
所以我也不清楚这一步怎么设了。
程序里,应该是这样写的:
shellexecute(handle,nil,pchar('mailto:myemail@263.net'),nil,nil,sw_shownormal);
这里面的myemail@263.net你可以换成任何你想要发往的地址^_^
 
iamfly,绝对正确。我也是这样的。
 
实现超级链接
在程序中实现打开浏览器,打开邮件程序的功能首先要在uses部分加入
uses Shellapi;
接着在需要超级链接的地方使用
SellExecute(handle,nil,pchar('mailto:oldice@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');
///////////////////////////////////////////////////
我一直用这个过程。
——iseek
 
非常感谢iamfly,iseek和智利的回答,很详细。我是个delphi的初学者,来大富翁的时间
也不长,以后还得多多麻烦各位了。
 
多人接受答案了。
 
后退
顶部