module1.bas

来自「通用串行总线USB(Universal Serial Bus)是一种新型的微机总」· BAS 代码 · 共 47 行

Attribute VB_Name = "Module1"
Option Explicit
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const EWX_POWEROFF = 8

' For Windows NT/2000
Public Declare Function SHRestartSystemMBW Lib "shell32" _
    Alias "#59" _
    (ByVal hWnd As Long, _
    ByVal lpszPrompt As Long, _
    ByVal dwFlags As Long) As Long

' For Windows 95
Public Declare Function SHRestartSystemMBA Lib "shell32" _
    Alias "#59" _
    (ByVal hWnd As Long, _
    ByVal lpszPrompt As String, _
    ByVal dwFlags As Long) As Long


' 检测Windows版本
Public Const VER_PLATFORM_WIN32s = 0
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2

Public Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

'获取版本信息的API函数
Public Declare Function GetVersionEx Lib "kernel32" _
    Alias "GetVersionExA" _
    (lpVersionInformation As OSVERSIONINFO) As Long


Public Declare Function SHShutDownDialog Lib "shell32" _
    Alias "#60" (ByVal dwReserved As Long) As Long