ShellExecute控制邮件换行
请教如下代码:
ShellExecute(handle, ‘open’, ‘ mailto:who@mail.neu.edu.cn?subject=Hello&Body=This is a test’+#13+#10, nil, nil,
SW_SHOWNORMAL);
当中的邮件正文无法换行,那个#13#10完全不起作用,请教如何才可以换行的方法!
[解决办法]
以下代码测试OK:
- Delphi(Pascal) code
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ShellAPI, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin ShellExecute(handle,'open', 'mailto:who@mail.neu.edu.cn?subject=Hello&Body=This is a test email1%0aThis is a test email2%0aThis is a test email3', nil, nil,SW_SHOWNORMAL);end;end.