以下是引用bczgvip在2012-7-8 20:29:55的发言：

Option Explicit
 
Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      '  Maintenance string for PSS usage
End Type
 
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
 
Private Sub Form_Load()
    Dim osvi As OSVERSIONINFO
    Dim bIsWindowsXPorLater As Long
    osvi.dwOSVersionInfoSize = Len(osvi)
    bIsWindowsXPorLater = GetVersionEx(osvi)
    Debug.Print osvi.dwMajorVersion, osvi.dwMinorVersion, osvi.dwBuildNumber, osvi.dwPlatformId, osvi.szCSDVersion
End Sub