+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : حذف البرنامج تلقائيا self delete (/showthread.php?tid=5682)
حذف البرنامج تلقائيا self delete - mariio - 31-10-2013
السلام عليكم ورحمه الله
جعل البرنامج يحذف نفسه 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.في امان الله
حذف البرنامج تلقائيا self delete - füllfederhal - 31-10-2013
طريقة اخرى
يجب علينا اضافة كود انهاء التطبيق Application.Terminate في اي حدث OnClick.
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec(PAnsiChar('cmd.exe /c del "' + Application.ExeName + '"'), 0);
Application.Terminate;
end;
PHP كود :
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WinExec(PAnsiChar('cmd.exe /c del "' + Application.ExeName + '"'), 0);
end;
حذف البرنامج تلقائيا self delete - Houdini - 01-11-2013
من يجد طريقة حدف تلقائي دون استعمال ملف خارجي ؟؟
RE: حذف البرنامج تلقائيا self delete - bakhcha - 06-07-2017
هل يمكن إدماج هذا الملف Bat داخل البرنامج ويتم استدعاؤه عند توفر شروط معينة أم لا