1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

function MyExitWindows(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;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var
   Locator  : ISWbemLocator;
   Services : ISWbemServices;
   ObjectSet: ISWBemObjectSet;
   SObject  : ISWBemObject;
   Enum     : IEnumVariant;
   tempObj  : OleVariant;
   Value    : Cardinal;
   strTemp  : string;
begin
   Locator  := CoSWbemLocator.Create;
   Services := Locator.ConnectServer('ServerRechner','root\cimv2','','','','',0,nil);
   Services.Security_.Privileges.Add(wbemPrivilegeShutdown,true);
   ObjectSet := Services.ExecQuery('SELECT * FROM Win32_OperatingSystem WHERE Primary=True','WQL',
                  wbemFlagReturnImmediately,nil);
   Enum     := (ObjectSet._NewEnum) as IEnumVariant;
   while (Enum.Next(1,tempObj,Value) = S_OK) do
   begin
      SObject := IUnknown(tempObj) as SWBemObject;
      SObject.ExecMethod_('Shutdown', nil, 0, nil);
   end;
end;