发送Email的小问题(35分)

我建了一个About窗体，并放上了我的Email的地址，问：
当用户电击Email时，如何调用发送Email的工具.

shellexecute(nil,'open','mailto:shengqh@263.net','','',SW_SHOWNORMAL);

在程序中实现打开浏览器，打开邮件程序的功能首先要在uses部分加入uses Shellapi;接着在需要超级链接的地方使用
SellExecute(handle,nil,pchar'mailto:guihong@163.net'),nil,nil,sw_shownormal);
其中pchar()中的mailtos是打开邮件程序的，可以换成http://、ftp://、gopher://、new:、telnet:等多种形式实现打开文件,打开Windows已经注册的文件其实很简单，根据以下代码定义一个过程：
procedure URLink(URLChar);
begin
ShellExecute(0, nil, URL, nil, nil, SW_NORMAL);
end;
在要调用的地方使用URLink('Readme.txt');
如果是链接主页的话，那么改用URLink('http://gui.yeah.net');

这样可能更好一些:
ShellExecute(handle,nil,pchar('mailto:'+label4.caption),
nil,nil,sw_shownormal);
这样你要修改email地址的时候就用不着修改源程序了.

1、放置一个 TLabel 构件。
2、设置 TLabel 构件的属性：
Caption := 'theBee@neatease';
Font.Color := clBlue;
Font.Style := Font.style + [ fsUnderLine ];
Cursor := scHandPoint;
3、编写代码：Label1.OnClick 事件代码：
[
ShellExecute(Handle,'open',
'MailTo:theBee@neatease',nil,nil,SW_SHWO)
]

4、切记： Uses ShellAPI;

OK!

谢谢各位，不过分数太少，
分开了就对不起第一个回答的人了。
本来应全给DreamTiger,但似乎语法有错，所以....
不过，我还有类似的一个问题，请大家关注。