更新自身文件

 

{
//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;

}