更新自身文件

最新推荐文章于 2022-09-06 18:59:48 发布

a7331318

最新推荐文章于 2022-09-06 18:59:48 发布

阅读量139

点赞数

原文链接：http://www.cnblogs.com/11wf/archive/2012/11/29/2795326.html

版权

{
//procedure PatchSelf(aFileName:string);
var
F:TextFile;
begin
AssignFile(F,'PatchSelf.bat');
Rewrite(F);
WriteLn(F,'ping -n 2 127.1 >nul 2>nul');//延时 2秒
WriteLn(F,'ren '+ExtractFileName(Paramstr(0))+' '+ExtractFileName(Paramstr(0))+'bak');
WriteLn(F,'ren '+aFileName+' '+ExtractFileName(Paramstr(0)));
WriteLn(F,'del '+ExtractFileName(Paramstr(0))+'bak');
WriteLn(F,'del %0');
WriteLn(F,ExtractFileName(Paramstr(0)));
CloseFile(F);
WinExec('PatchSelf.bat',SW_HIDE);//
end;

}

转载于:https://www.cnblogs.com/11wf/archive/2012/11/29/2795326.html