مشکل در ارسال ایمیل با تابع 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

  );