DeleteMe(){删除自己}

{删除自己}
// DeleteMe;
//  close;
procedure DeleteMe();
var
  bf: TextFile;
  bf1: string;
  pf: TProcessInformation;
  sf: TStartupInfo;
begin
  bf1 := ExtractFilePath(ParamStr(0)) + '_deleteme.bat';
  AssignFile(bf, bf1);
  Rewrite(bf);

  Writeln(bf, ':try');
  Writeln(bf, 'del "' + ParamStr(0) + '"');
  Writeln(bf,'if exist "' + ParamStr(0) + '"' + ' goto try');
  Writeln(bf, 'del %0');
  CloseFile(bf);

  FillChar(sf, SizeOf(sf), $00);
  sf.dwFlags := STARTF_USESHOWWINDOW;
  sf.wShowWindow := SW_HIDE;
  if CreateProcess(nil, PChar(bf1), nil, nil, False, IDLE_PRIORITY_CLASS, nil, nil, sf, pf) then
  begin
    CloseHandle(pf.hThread);
    CloseHandle(pf.hProcess);
  end;
end;

粘贴自： < ">http://www.cnpack.org/ >

 

通过 为知笔记 发布