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

[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;