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;