程序自已删除自已

[lenghaijun1978]

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

[Kshape]

让应用程序自身删除
原理：在应用程序刚要退出之前创建一个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;

[caiso]

顶一下

[dext]

MoveFileEx(PChar(ParamStr(0)), nil, MoveFile_Delay_Until_Reboot);

下次重启动后，就没了！