程序自已删除自已

Question

如何实现一个程序在运行结束后将自已删除！！！！

Answer 1

让应用程序自身删除  
原理：在应用程序刚要退出之前创建一个DelMe.bat文件，让它先删除应用程序，然后删除自身。在Form的OnClose事件中加入下列函数代码： procedure TForm1.CloseMe;
var 
  F:textfile;
begin
  AssignFile(F,'.\DelMe.bat');
  ReWrite(F);
  WriteLn(F,'@echo off');
  WriteLn(F,':loop');
  WriteLn(F,'del "'+Application.ExeName+'"');
  WriteLn(F,'if exist .\file.exe goto loop');
  WriteLn(F,'del .\DelMe.bat');
  CloseFile(F);
  WinExec('.\DelMe.bat', SW_HIDE);
  Close;
end;

Answer 2

MoveFileEx(PChar(ParamStr(0)), nil, MoveFile_Delay_Until_Reboot);下次重启动后，就没了！