حذف البرنامج تلقائيا self delete

[mariio]

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

جعل البرنامج يحذف نفسه 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.

في امان الله

[füllfederhal]

طريقة اخرى
يجب علينا اضافة كود انهاء التطبيق 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; 


[Houdini]

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

[bakhcha]

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