مشکل در ارسال ایمیل با تابع ShellExecute در win7

[بهروز عباسی]

درود به تمام برنامه نویس های گل

من این کد رو با دلفی 7 در xp نوشتم جواب داد اماحالابادلفیXE در ویندوز7 نوشتم اجرا نمیشه



procedure Tfrm_About.EMail(Mailto, Subject, body: string);
var
Mail:string;
begin
Mail:='Mailto:'+Mailto+'?subject='+Subject+'&body='+body;


if ShellExecute(0,'open',pchar(Mail),nil,nil,SW_SHOWN ORMAL )<=32 then
MessageDlg('An Error',mtError,[mbOK],0);
end;

اینم فراخوانیش

procedure Tfrm_About.lbl_EMailClick(Sender: TObject);begin
EMail('email@gmail.com',Application.Title,'');
end;

[سعید صابری]

من از کد زیر استفاده می کنون در ویندوز7 جواب میده

var
a:string;
begin
a:='mailto:info@delphiplus.ir?subject=' +
sub + '&body=' + body;
ShellExecute(
Application.Handle, 'open', PChar(a),
nil,
nil,
SW_SHOWNORMAL
);