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

第一种：(普通批处理方式)procedure DeleteMe;varBatchFile: TextFile;BatchFileName: string;ProcessInfo: TProcessInformation;StartUpInfo: TStartupInfo;beginBatchFileName := ExtractFilePath(ParamStr(0)) + _deleteme.bat;AssignFile(BatchFile, BatchFileName);Rewrite(BatchFile);Writeln(BatchFile, :try);Writeln(BatchFile, del + ParamStr(0) + );Writeln(BatchFile,if exist + ParamStr(0) + + goto try);Writeln(BatchFile, del %0);CloseFile(BatchFile); 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) thenbeginCloseHandle(ProcessInfo.hThread);CloseHandle(ProcessInfo.hProcess);end;end; procedure TForm1.Button1Click(Sender: TObject);beginDeleteMe;close;end; end. 第二种：(系统控制批处理方式)我们经常遇到这样的软件,运行之后就消失的无影无踪,特别是一些黑客的木马工具。如果我们能掌握这个技术,即使不做黑客工具,也可以在程序加密、软件卸载等方面发挥作用。那么他们是怎样实现的呢？ ---- 以delphi为例,在form关闭的时候执行以下函数closeme即可。procedure TForm1.closeme; var f:textfile; begin assignfile(f,.\delme.bat); rewrite(f); writeln(f,@echo off); writeln(f,:loop); writeln(f,del +application.ExeName+); writeln(f,if exist .\file.exe goto loop); writeln(f,del .\delme.bat); closefile(f); winexec(.\delme.bat, SW_HIDE); close; end; winexec(pchar( /c del +ParamStr(0)),SW_MINIMIZE);//最小化执行删除操作，否则将看到DOS窗口的瞬间闪烁 第三种： usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ShellAPI, ShlObj; typeTForm1 = class(TForm)procedure FormClose(Sender: TObject; var Action: TCloseAction);private{ Private declarations }public{ Public declarations }end; varForm1: TForm1; implementation {$R *.dfm} function Suicide: Boolean;varsei: TSHELLEXECUTEINFO;szModule: PChar;szComspec: PChar;szParams: PChar;beginszModule := AllocMem(MAX_PATH);szComspec := AllocMem(MAX_PATH);szParams := AllocMem(MAX_PATH); // get file path names:if ((GetModuleFileName(0,szModule,M