自删除

最新推荐文章于 2023-11-21 19:45:00 发布

weixin_33968104

最新推荐文章于 2023-11-21 19:45:00 发布

阅读量57

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/bsoom/archive/2009/11/15/1603255.html

例一:

Code
unit   Unit1;

interface

uses
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,
      Dialogs;

type
      TForm1   =   class(TForm)
          procedure   FormClose(Sender:   TObject;   var   Action:   TCloseAction);
      private
          {   Private   declarations   }
          procedure     closeme;
      public
          {   Public   declarations   }
      end;

var
      Form1:   TForm1;

implementation

{$R   *.dfm}

{   TForm1   }

procedure   TForm1.closeme;
      var   f:textfile;
begin
      assignfile(f,'c:\delme.bat');
      rewrite(f);
      writeln(f,'@echo   off');
      writeln(f,':loop');
      writeln(f,'del   '+'"'+application.ExeName+'"');
      writeln(f,'if   exist   '+'"'+application.ExeName+'"'+'   goto   loop');
      writeln(f,'del   c:\delme.bat   ');
      closefile(f);
      winexec(PChar('c:\delme.bat'),   SW_HIDE);
      Application.Terminate;
end;

procedure   TForm1.FormClose(Sender:   TObject;   var   Action:   TCloseAction);
begin
      closeme;
end;

end.

以上自删除可能会在SYStem32目录失效，可能是系统保护功能。例二做了一些过改进如下。

例二:

procedure DelMe;
var
F: textfile;
BatchFileName: string;
ProcessInfo: TProcessInformation;
StartUpInfo: TStartupInfo;
begin
BatchFileName := 'c:\' + 'Deleteme.bat';
AssignFile(F, BatchFileName);
Rewrite(F);
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;