delphi 程序自删除函数 DeleteMe

最新推荐文章于 2021-02-22 10:47:10 发布

原创

最新推荐文章于 2021-02-22 10:47:10 发布 · 897 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #class

这是一个使用Delphi编写的程序自删除函数DeleteMe的实现。通过创建批处理文件并执行删除操作，确保程序及其批处理文件在执行后被正确删除。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

 
 procedure DeleteMe;
var
BatchFile: TextFile;
BatchFileName: string;
ProcessInfo: TProcessInformation;
StartUpInfo: TStartupInfo;
begin
BatchFileName := ExtractFilePath(ParamStr(0)) + '$$del$$.bat';
AssignFile(BatchFile, BatchFileName);
Rewrite(BatchFile);
Writeln(BatchFile, ':try');
Writeln(BatchFile, 'del "' + GetShortName(ParamStr(0)) + '"');
Writeln(BatchFile, '