救急?如何调用默认的邮件程序?(100分)

  • 主题发起人 主题发起人 大头猫
  • 开始时间 开始时间

大头猫

Unregistered / Unconfirmed
GUEST, unregistred user!
救急?如何调用默认的邮件程序?
比如 foxmail
不用api
 
uses shellapi;
ShellExecute(handle,nil,'mailto:aaa@bbb.com',nil, nil, SW_SHOWNORMAL);
 
不用API还真不好办了,用API的话就跟上面一样,
 
?比如 foxmail
不用api
那你需要读取注册表,找到默认的邮件,然后再运行启动它,不过启动它你不还得用API吗?
Winexec也是 API呀。CreateProcess?还是。呵呵。
 
procedure ApiExec(Action: String; Flag: Integer);
begin
ShellExecute(Application.Handle, pchar('open'), pchar(Action), pchar(''), pchar(ExtractFilePath(paramstr(0))), Flag)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ApiExec('mailto:webmaster@delphibbs.com', SW_SHOWDEFAULT);
end;
 
一会给分,不好意思,对对,如果在网页中执行一个程序,怎麽做
 
给分了,兄弟
 
后退
顶部