很多时候，我们可能需要执行关闭计算机或重新启动计算机的操作，但在?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;