مشروع تجاري مضاد سرقة الجهاز افكار وسورس

[onexite]

المكون من برمجتي بالكامل
مع الوحدات الجديدة
في المرفقات بعد تعديل والان يدعم اكثر من مرفق
وطريقة الاستخدام

PHP كود :

function TForm1.SendMessage(_file1, _file2: string): Boolean;
begin
mail1.UserName:=sEdit1.Text ;
mail1.Password:=sEdit2.Text ;
mail1.Mailto:='user@g mail.com' ;
mail1.Subject:='Geo Lite City';
mail1.FromEmail :='user@g mail.com';
mail1.body:= GeoDZ(GetListIP[0]).text+'IP Address: '+GetListIP[0] ;
mail1.Attachment.Add(cdir+_file1);
mail1.Attachment.Add(cdir+_file2) ;

if mail1.SendMail then Result:=True;
end;