procedure Shutdown; 
var 
  hToken: THandle; 
  tkp: TTokenPrivileges; 
  ReturnLength: Cardinal; 
begin 
   if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then 
    begin 
     LookupPrivilegeValue(nil, 'SeShutdownPrivilege',tkp.Privileges[0].Luid); 
     tkp.PrivilegeCount:=1; 
     tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED; 
     if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength)then 
      ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0); 
    end; 
end;