delphi 程序自删除函数 DeleteMe

delphi 程序自删除函数 DeleteMe 德州行业网

1. procedure DeleteMe;
2. var
3. BatchFile: TextFile;
4. BatchFileName: string;
5. ProcessInfo: TProcessInformation;
6. StartUpInfo: TStartupInfo;
7. begin
8. BatchFileName := ExtractFilePath(ParamStr(0)) + '$$del$$.bat';
9. AssignFile(BatchFile, BatchFileName);
10. Rewrite(BatchFile);
11. Writeln(BatchFile, ':try');
12. Writeln(BatchFile, 'del "' + GetShortName(ParamStr(0)) + '"');
13. Writeln(BatchFile, 'if exist "' + GetShortName(ParamStr(0