有谁会mailto协议的用法呀！

Question

有谁会mailto协议的用法呀！要说细的的例子呀:)

Answer 1

Form1上放一个Label1，Label1的Caption属性是目标邮件地址，在Label1的OnClick中写：
procedure TForm1.Label1Click(Sender: TObject);
begin
Shellexecute(handle,Nil,pChar('mailto:'+Label1.Caption ),Nil,Nil,SW_SHOWNORMAL);
end;

Answer 2

var
  strMailTo : pchar;
begin
  strMailTo := 'MailTo:....';
  ShellExecuteA(0,'open',strMailTo,nil,nil,SW_SHOWNORMAL);
end;
=========================
MailTo:Address[&CC=抄送人列表][&BCC=暗送人列表][&Subject=标题][&Body=邮件正文][&Attach=用引号包含的附件文件名]

Answer 3

有没有带附件的例子呀MailTo:Address[&CC=抄送人列表][&BCC=暗送人列表][&Subject=标题][&Body=邮件正文][&Attach=用引号包含的附件文件名]&Attach不好用，在msdn上MAILTO帮助没有这个参数