Mega Code Archive

 

Categories / Delphi / Activex OLE

 

Otomatik e-mail gönderme

//!!! uses satirina shellapi eklenmeli procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle,'open','mailto:fdemirel@kkk.tsk.mil.tr','','',sw_Normal); end;