最简单的Delphi自我删除程序

program Project1; uses Windows; begin WinExec(PChar('cmd /c erase /f ' + GetCommandLine), 0); ExitProcess(0); end.

你可能感兴趣的:(最简单的Delphi自我删除程序)