Delphi中几种程序自我删除的方法.docxVIP

第一种：(普通批处理方式) procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo; begin BatchFileName := ExtractFilePath(ParamStr(0)) + _deleteme.bat; AssignFile(BatchFile, BatchFileName); Rewrite(BatchFileW)r;iteln(BatchFile, :try); Write