function SetPrivilege (sPrivilegeName: string; bEnabled: Boolean) : Boolean;
 var
   TPPrev,
   TP       : TTokenPrivileges;
   Token    : THandle;
   dwRetLen : DWORD;
 begin 
   result := False; 
   
   OpenProcessToken (GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, @Token); 
   
   TP.PrivilegeCount := 1; 
   if LookupPrivilegeValue (nil, PChar (sPrivilegeName), TP.Privileges[0].LUID) then 
   begin 
     if bEnabled then 
       TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED 
     else 
       TP.Privileges[0].Attributes := 0;
     
     dwRetLen := 0; 
     result := AdjustTokenPrivileges (Token, False, TP, SizeOf (TPPrev), TPPrev, 
       dwRetLen) 
   end; 
   
   CloseHandle (Token) 
 end; 
 
 
 // 
 // iFlags: 
 // 
 //  one of the following must be 
 //  specified 
 // 
 //   EWX_LOGOFF 
 //   EWX_REBOOT 
 //   EWX_SHUTDOWN 
 // 
 //  following attributes may be 
 //  combined with above flags 
 // 
 //   EWX_POWEROFF 
 //   EWX_FORCE    : terminate processes 
 // 
 function WinExit (iFlags: integer) : Boolean; 
 begin 
   result := true; 
   if SetPrivilege ('SeShutdownPrivilege', true) then 
   begin 
     if (not ExitWindowsEx (iFlags, 0)) then 
     begin 
       // handle errors... 
       result := False 
     end; 
     SetPrivilege ('SeShutdownPrivilege', False) 
   end 
   else 
   begin 
     // handle errors... 
     result := False 
   end 
 end;