Программирование Delphi

На NT-платформах Windows имеются TOKEN PRIVILEGES, где имеется способ завершения работы Windows ("SeShutDownPrivilege"). Это причина, почему Вы не можете завершать или перезагружать Win2K кодом EWX_SHUTDOWN, когда эта привилегия не допускается. Есть короткий отрывок завершения работы Win2K.

Допустим, Вам нужно узнать, на основе какой платформы идет управление кодом, используя функцию GetWindows для получения версии:

function WindowsExit(RebootParam: Longword): Boolean;
var
   TTokenHd: THandle;
   TTokenPvg: TTokenPrivileges;
   cbtpPrevious: DWORD;
   rTTokenPvg: TTokenPrivileges;
   pcbtpPreviousRequired: DWORD;
   tpResult: Boolean;
const
   SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
   if Win32Platform = VER_PLATFORM_WIN32_NT then
   begin
     tpResult := OpenProcessToken(GetCurrentProcess(),
       TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
       TTokenHd) ;
     if tpResult then
     begin
       tpResult := LookupPrivilegeValue(nil,
                                        SE_SHUTDOWN_NAME,
                                        TTokenPvg.Privileges[0].Luid) ;
       TTokenPvg.PrivilegeCount := 1;
       TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
       cbtpPrevious := SizeOf(rTTokenPvg) ;
       pcbtpPreviousRequired := 0;
       if tpResult then
         Windows.AdjustTokenPrivileges(TTokenHd,
                                       False,
                                       TTokenPvg,
                                       cbtpPrevious,
                                       rTTokenPvg,
                                       pcbtpPreviousRequired) ;
     end;
   end;
   Result := ExitWindowsEx(RebootParam, 0) ;
end;

Использоание:

// Завершение работы Windows
WindowsExit(EWX_POWEROFF or EWX_FORCE) ;

// Перезагрузка Windows
WindowsExit(EWX_REBOOT or EWX_FORCE) ;