Delphi：程序自己删除自己，适用于任何windows版本(含源码)

Delphi：程序自己删除自己，适用于任何windows版本(含源码)

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);
  if ((GetModuleFileName(0,szModule,MAX_PATH)<>0) and
    (GetShortPathName(szModule,szModule,MAX_PATH)<>0) and
    (GetEnvironmentVariable('COMSPEC',szComspec,MAX_PATH)<>0)) then
  begin
    lstrcpy(szParams,'/c del ');
    lstrcat(szParams, szModule);
    sei.cbSize      := sizeof(sei);
    sei.Wnd          := 0;
    sei.lpVerb      := 'Open';
    sei.lpFile      := szComspec;
    sei.lpParameters := szParams;
    sei.lpDirectory  := 0;
    sei.nShow        := SW_HIDE;
    sei.fMask        := SEE_MASK_NOCLOSEPROCESS;
    if (ShellExecuteEx(@sei)) then
    begin
      SetPriorityClass(sei.hProcess,HIGH_PRIORITY_CLASS);//IDLE_PRIORITY_CLASS);
      SetPriorityClass( GetCurrentProcess(),
                        REALTIME_PRIORITY_CLASS);
      SetThreadPriority( GetCurrentThread(),
                        THREAD_PRIORITY_TIME_CRITICAL);
      SHChangeNotify(SHCNE_Delete,SHCNF_PATH,szModule,nil);
      Result := True;
    end
    else
      Result := False;
  end
  else
    Result := False;
end;

转载于:https://www.cnblogs.com/bdccloudy/p/7665189.html