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:

procedure shutdown;  
begin  
  ExWindows(EWX_POWEROFF);  
end;  

 
{$WARN SYMBOL_PLATFORM OFF}  
procedure SuspendOrHibernate(ASuspend, AForce: Boolean);  
var  
  iVersionInfo : TOSVersionInfo;  
  iToken    : Cardinal;  
  iPriveleg : TTokenPrivileges;  
  iaResult  : Cardinal;  
begin  
  FillChar (iPriveleg, SizeOf (iPriveleg), #0);  
  iVersionInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);  
   GetVersionEx(iVersionInfo);  
   
  if iVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then   
  begin  
    Win32Check(OpenProcessToken (GetCurrentProcess,  
               TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, iToken));  
    Win32Check(LookupPrivilegeValue (NIL, 'SeShutdownPrivilege',  
               iPriveleg.Privileges[0].Luid));  

 
    iPriveleg.PrivilegeCount := 1;  
    iPriveleg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  
   
    Win32Check(AdjustTokenPrivileges(iToken, False, iPriveleg,  
    Sizeof(iPriveleg), iPriveleg, iaResult));  
  end;  
     Win32Check(SetSystemPowerState(ASuspend, AForce));  
end;