خطأ في الإستدعاء

أخي الكريم

بعد إضافة ShellAPI في uses

أكتب

procedure TForm1.Button2Click(Sender: TObject);

begin

shellexecute(handle,'open','www.google.com','','',SW_SHOWNORMAL) ;

end;

لاحظ أيضا الكود التالي يقوم بفتح البرنامج الإفتراضي لإرسال الإيميلات و يضع إسم المرسل إليه

procedure TForm1.Button2Click(Sender: TObject);

begin

shellexecute(handle,'open','mailto:rober@google.com','','',SW_SHOWNORMAL) ;

end;

بارك الله فيك وجزاك الله ألف خير