Delphi 删除文件自己 删除程序自身.rar

Delphi 自动删除文件，也可把程序自已删除，如何删除文件自身，请详见代码，运行效果图请参见测试图片。具体的实现过程可参见以下代码，使用到的Delphi 自带函数还是挺多的： 　　BatchFileName := ExtractFilePath(ParamStr(0)) '_deleteme.bat'; 　　AssignFile(BatchFile, BatchFileName); 　　Rewrite(BatchFile); 　　Writeln(BatchFile, ':try'); 　　Writeln(BatchFile, 'del "' ParamStr(0) '"'); 　　Writeln(BatchFile, 　　 'if exist "' ParamStr(0) '"' ' goto try'); 　　Writeln(BatchFile, 'del %0'); 　　CloseFile(BatchFile); 　　Delphi删除自己，这个好另类： 　　FillChar(StartUpInfo, SizeOf(StartUpInfo), $00); 　　StartUpInfo.dwFlags := STARTF_USESHOWWINDOW; 　　StartUpInfo.wShowWindow := SW_HIDE; 　　if CreateProcess(nil, PChar(BatchFileName), nil, nil, 　　 False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo, 　　 ProcessInfo) then 　　begin 　　 CloseHandle(ProcessInfo.hThread); 　　 CloseHandle(ProcessInfo.hProcess); 　　end;