Public Declare Function SHShutDownDialog Lib "shell32" _
        Alias "#60" _
        (ByVal YourGuess As Long) As LongPrivate Sub Command1_Click()
    Call SHShutDownDialog(0)
End Sub

解决方案 »

  1.   

    shell32 API 中的SHShutDownDialog函数
      

  2.   


    Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Const EWX_LOGOFF = 0    '中止进程,然后注销
    Private Const EWX_SHUTDOWN = 1  '关闭系统
    Private Const EWX_REBOOT = 2    '重新引导系统
    Private Const EWX_FORCE = 4    '强迫中止没有响应的进程Public Sub ExitWindow9x()
    Call ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
    End Sub
      

  3.   

    只有cblxm(cblxm)的答案可用性高
    一般只用ExitWindowsEX就可
      

  4.   

    sonicdater(发呆呆) 的答案是最正确的.有些人没看明白人家要什么就胡说八道!