درود به تمام برنامه نویس های گل
من این کد رو با دلفی 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;