深圳全飞鸿

标题: delphi:程序的自我删除 [打印本页]

作者: zhgc 时间: 2019-6-2 21:15
标题: delphi:程序的自我删除
{自我删除}
procedure TH_GZ2019.DelMe;
var
  F          : textfile;
  BatchFileName: string;
  ProcessInfo  : TProcessInformation;
  StartUpInfo  : TStartupInfo;
begin
  PassRunMsdos;
  BatchFileName:= Syspath+'Deleteme.bat';  {建批处理文件}
  AssignFile(F,BatchFileName);
  Rewrite(F);{F为TextFile类型}
  WriteLn(F,':try');
  WriteLn(F,'del "' + ParamStr(0) + '"');
  WriteLn(F,'if exist "' + ParamStr(0) + '"' + ' goto try');
  WriteLn(F,'del %0');
  CloseFile(F);
  FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartUpInfo.wShowWindow := SW_HIDE;
  if CreateProcess(nil, PChar(BatchFileName), nil, nil, {运行批处理文件}
False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
ProcessInfo) then
  begin
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
  end;
end;

欢迎光临深圳全飞鸿 (http://www.nagomes.com/disc/)