2011年10月11日
批处理自己更新自己
摘要： classprocedureTVTUpgrader.UpdateSelf(constFileName:TVTString);varLBatchFile:TextFile;LBatchFileName:TVTString;LProcessInfo:TProcessInformation;LStartUpInfo:TStartupInfo;begin//批处理文件名LBatchFileName:=ExtractFilePath(ParamStr(0))+'_deleteme.bat';//打开文件，设置覆盖模式AssignFile(LBatchFile,LBatchFileName 阅读全文
posted @ 2011-10-11 15:37 毛小毛 阅读(557) 评论(0) 推荐(0) 编辑