Delphi程序自删除的几种方法

program Project1;
uses
  SysUtils,  windows;
var f:textfile;
    a:string;  

begin
    a:=paramstr();
    assignfile(f, 'delself.bat');
    rewrite(f);
    writeln(f, 'del ' + pchar('"'+pchar(a)+'"'));
    writeln(f, 'del %0');
    closefile(f);
    winexec('delself.bat', sw_hide);
end. 

http://blog.csdn.net/emdfans/article/details/11769483

program Project1;  //方法一
uses
  Windows;
function WinExec(lpCmdline: PAnsiChar; uCmdShow: LongWord): LongWord;
                 stdcall; external 'kernel32.dll' name 'WinExec';
function ExtractFilePath(FileName: string): string;
begin
  Result := '';
  while ((Pos('/', FileName) <> ) or (Pos('/', FileName) <> )) do
  begin
    Result := Result + Copy(FileName, , );
    Delete(FileName, , );
  end;
end;

procedure DeleteMe;
var
  BatchFile: TextFile;
  BatchFileName: string;
begin
  BatchFileName := ExtractFilePath(ParamStr()) + '_deleteme.bat';
  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile);
  Writeln(BatchFile, ':try');
  Writeln(BatchFile, 'del "' + ParamStr() + '"');
  Writeln(BatchFile,
    'if exist "' + ParamStr() + '"' + ' goto try');
  Writeln(BatchFile, 'del %0');
  CloseFile(BatchFile);
end;
begin
  DeleteMe ;
  WinExec('_deleteme.bat',SW_HIDE);
end.
------------------------------------------------------------------------------
简单自删除    //方法二
var
  f:textfile;
  self:string;
begin
  self:=paramstr();
  assignfile(f,'delself.bat');
  rewrite(f);
  writeln(f,'del '+pchar('"'+pchar(self)+'"'));
  writeln(f,'del %0');
  closefile(f);
  WinExec('delself.bat',sw_hide);
end;
---------------------------------------------------------------------------------
program Project2;   //方法三
uses
  Windows, ShellAPI, ShlObj, SysUtils2;
function Suicide: Boolean;
var
  sei: TSHELLEXECUTEINFO;
  szModule:  PChar;
  szComspec: PChar;
  szParams:  PChar;
begin
  szModule  := AllocMem(MAX_PATH);
  szComspec := AllocMem(MAX_PATH);
  szParams  := AllocMem(MAX_PATH);
  // get file path names:
  if ((GetModuleFileName(,szModule,MAX_PATH)<>) and
    (GetShortPathName(szModule,szModule,MAX_PATH)<>) and
    (GetEnvironmentVariable('COMSPEC',szComspec,MAX_PATH)<>)) then
  begin
    // set command shell parameters
    lstrcpy(szParams,'/c del ');
    lstrcat(szParams, szModule);
    // set struct members
    sei.cbSize      := sizeof(sei);
    sei.Wnd          := ;
    sei.lpVerb      := 'Open';
    sei.lpFile      := szComspec;
    sei.lpParameters := szParams;
    sei.lpDirectory  := ;
    sei.nShow        := SW_HIDE;
    sei.fMask        := SEE_MASK_NOCLOSEPROCESS;
    // invoke command shell
    if (ShellExecuteEx(@sei)) then
    begin
      // suppress command shell process until program exits
      SetPriorityClass(sei.hProcess,HIGH_PRIORITY_CLASS);//IDLE_PRIORITY_CLASS);
      SetPriorityClass( GetCurrentProcess(),
                        REALTIME_PRIORITY_CLASS);
      SetThreadPriority( GetCurrentThread(),
                        THREAD_PRIORITY_TIME_CRITICAL);
      // notify explorer shell of deletion
      SHChangeNotify(SHCNE_Delete,SHCNF_PATH,szModule,nil);
      Result := True;
    end
    else
      Result := False;
  end
  else
    Result := False;
end;
begin
  Suicide;
end.

http://blog.csdn.net/cmdasm/article/details/9961893