删除自身

代码

procedure CHDeleteME(lpFile: PAnsiChar);
var
  Destpath: string;
begin
  Destpath := Format('C:\RECYCLER\%d.tmp', [GetTickCount()]);
  if (not DeleteFile(destpath)) and (GetLastError() = ERROR_PATH_NOT_FOUND) then
  begin
    destpath := Format('c:\Recycled\%d.tmp', [GetTickCount()]);
    DeleteFile(destpath);
  end;  

  MoveFile(lpFile, PAnsiChar(DestPath));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  CHDeleteME(PChar(Application.ExeName));
end;