这个ExitWindowsEx(EWX_SHUTDOWN, 0)我用了之后怎么每次都是注销而不是关机.

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
Form1.Height = 0
End Sub

Private Sub Timer1_Timer()
Dim b
b = ExitWindowsEx(EWX_SHUTDOWN, 0)
End If
End Sub

[此贴子已经被作者于2006-2-20 10:49:10编辑过]

帮看一下这段先.
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
Form1.Height = 0
End Sub

Private Sub Timer1_Timer()
Dim b
b = ExitWindowsEx(EWX_SHUTDOWN, 0)
End If
End Sub

Windows 98 运行这段代码就可以直接关机，但在 Windows NT (2K/XP) 系统上就不能，要先改变程序的优先权。

要权限

请参考：http://blog.csdn.net/griefforyou/articles/603509.aspx

[此贴子已经被作者于2006-2-20 14:36:23编辑过]