delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمه الله

جعل البرنامج يحذف نفسه self delete
هذه احدى الطرق التي تستطيع بها حذف البرنامج تلقائيا

حيث انك ستقوم بانشاء ملف بامتداد Bat
وسرد اكواد الحذف وثم تشغيله

كود :
program Project1;



uses
  SysUtils,
  Windows,
  Classes;

var
     StringList: TStringList;
begin
StringList:=TStringList.Create;
StringList.Add('del *Project1.exe');
StringList.SaveToFile('2.bat');
WinExec('2.bat', SW_SHOW);
StringList.Free;
end.

في امان الله

طريقة اخرى
يجب علينا اضافة كود انهاء التطبيق Application.Terminate في اي حدث OnClick.

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec(PAnsiChar('cmd.exe /c del "' + Application.ExeName + '"'), 0);
  Application.Terminate;
end; 

في حدث OnClose الخروج الطبيعي للتطبيق نضع كود الحذف فقط.

PHP كود :
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 WinExec(PAnsiChar('cmd.exe /c del "' + Application.ExeName + '"'), 0);
end; 

من يجد طريقة حدف تلقائي دون استعمال ملف خارجي ؟؟

هل يمكن إدماج هذا الملف Bat داخل البرنامج ويتم استدعاؤه عند توفر شروط معينة أم لا

mariio

füllfederhal

Houdini

bakhcha