GetPriorityClass 和 ExitWindowsEx 提权、关机问题。

Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1
Private Sub Combo1_Click()
a = GetPriorityClass(Me.hWnd)
Select Case Combo1.ListIndex
       Case 0
       ExitWindowsEx 1, 0
       Label1.Caption = "关闭计算机"
        Case 1
       ExitWindowsEx 2, 0
       Label1.Caption = "重启计算机"
        Case 2
       ExitWindowsEx 0, 0
       Label1.Caption = "注销"
End Select
End SubPrivate Sub Form_Load()
Combo1.AddItem "关闭计算机"
Combo1.AddItem "重启计算机"
Combo1.AddItem "注销"
End Suba返回0 不成功。只有 Case 2 成功执行   网上找了很久没找到。麻烦一下大家。