本文整理自网络,侵删。
uses shellapi; procedure TForm1.Button1Click(Sender: TObject); var em_subject, em_body, em_mail : string; begin em_subject := 'Test Message'; em_body := 'Hello this is a test Message from Shell Execute Command to Open the Default Mail Wndow' em_mail := 'mailto:jdhiraj@rediffmail.com?subject=' + em_subject + '&body=' + em_body ; ShellExecute(Handle,'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL); end;
相关阅读 >>
Delphi2007-Delphi2010 程序不出现在任务栏的方法
Delphixe4 版本中,已针对移动平台 引入了 arc 模型
更多相关阅读请进入《Delphi》频道 >>