调用ExitWindowsEx()函数系统关机的问题,使用ExitWindowsEx(WWX_SHUTDOWN or EWX_POWEROFF,0)为何不能关闭

比尔.丐痴 · 2003-11-20

调用ExitWindowsEx()函数系统关机的问题,使用ExitWindowsEx(WWX_SHUTDOWN or EWX_POWEROFF,0)为何不能关闭系统？(50分) 在使用ExitWindowsEx的PAI来关闭计算机，ExitWindowsEx(WWX_SHUTDOWN or EWX_POWEROFF,0)为何不能关闭系统，查看MSDN说：“要关机，对于NT系统，其调用进程必须有SE_SHUTDOWS_NAME权限，对于98则没有。”那该如何获得SE_SHUTDOWS_NAME的权限呢？

app2001 · 2003-11-20

procedure ShutDown(Send: integer);   procedure AdjustToken(); //获取关机控制权   var     hdlProcessHandle, hdlTokenHandle, lBufferNeeded: Cardinal;     tmpLuid: Int64;   //tkpPrivilegeCount: Int64;     tkp, tkpNewButIgnored: TOKEN_PRIVILEGES;     Privilege: array[0..0] of _LUID_AND_ATTRIBUTES;   begin     hdlProcessHandle := GetCurrentProcess;     OpenProcessToken(hdlProcessHandle,       (TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY),       hdlTokenHandle);   // Get the LUID for shutdown privilege.     LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);     Privilege[0].Luid := tmpLuid;     Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;     tkp.PrivilegeCount := 1; // One privilege to set     tkp.Privileges[0] := Privilege[0];   // Enable the shutdown privilege in the access token of this process.     AdjustTokenPrivileges(hdlTokenHandle,       False,       tkp,       Sizeof(tkpNewButIgnored),       tkpNewButIgnored,       lBufferNeeded);   end; begin   AdjustToken;   case send of     1: ExitWindowsEx(EWX_FORCE, 0); //在紧急情况下强制关机。 ;     2: ExitWindowsEx(EWX_LOGOFF, 0); //以其他用户身份登录。 ;     3: ExitWindowsEx(EWX_POWEROFF, 0); //关闭系统并关闭电源。     4: ExitWindowsEx(EWX_REBOOT, 0); //重启操作系统     5: ExitWindowsEx(EWX_SHUTDOWN, 0); //关机;   else     EXIT;   end; end;

app2001 · 2003-11-20

uses   ShlObj;

比尔.丐痴 · 2003-11-21

接受答案了.

调用ExitWindowsEx()函数系统关机的问题,使用ExitWindowsEx(WWX_SHUTDOWN or EWX_POWEROFF,0)为何不能关闭

比尔.丐痴

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

比尔.丐痴

Unregistered / Unconfirmed

Similar threads