delphi中如何实现mailto

Lincoo 发布于 2005-01-17 11:07， 1657 次点击

就是和html的mailto一个效果的
点击文字之后弹出邮件程序的

2 回复

my36151152007-04-19 15:03

ShellExecute();
函数可以!

mzx872007-04-20 18:19

shellexecute(handle,nil,PChar('mailto:mzx_zm@126.com'),nil,nil,SW_SHOWNORMAL);
不要忘了在uses后添shellapi