在 NT 内核的操作系统上实现系统关闭

很多时候，我们可能需要执行关闭计算机或重新启动计算机的操作，但在 WinNT 内核的操作系统中，我们不能只调用简单的 API 函数来完成这样的操作。这并不是一个复杂的问题，却有时候会让人“为难”，如果是这样，现在解决这个问题的办法来了。
    ***************************************************************************
    具体使用示例：
    注销当前用户 => ExitWin32Sys(EWX_FORCE or EWX_LOGOFF);
    重新启动计算机 => ExitWin32Sys(EWX_FORCE or EWX_REBOOT);
    关闭计算机 => ExitWin32Sys(EWX_FORCE or EWX_POWEROFF);
    ***************************************************************************
具体代码：
uses
  Windows;

function GetSysTypes: Boolean; // & 获取操作系统类型 &
function SetPrivilege(sPrivilegeName: AnsiString; bEnable: Boolean): Boolean; // & 设置权限 &
procedure ExitWin32Sys(iFlags: Integer); // & 执行注销、退出或重启系统的操作 &

implementation

function GetSysTypes: Boolean;
var
  Ver: TOSVersionInfo;
begin
  Result := False;
  Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(Ver) then
    if Ver.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
      Result := True
    else
      Result := False;
end;

function SetPrivilege(sPrivilegeName: AnsiString; bEnable: 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,PAnsiChar(sPrivilegeName),TP.Privileges[0].LUID) then
  begin
    if bEnable 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;

procedure ExitWin32Sys(iFlags: Integer);
begin
  if GetSysTypes then
    ExitWindowsEx(iFlags,0)
  else
    if SetPrivilege('SeShutdownPrivilege',True) then
      if not ExitWindowsEx(iFlags,0) then
        SetPrivilege('SeShutdownPrivilege',False);
end;

本文地址：http://com.8s8s.com/it/it4756.htm