如何获得 Windows 操作系统的版本

很多时候我们需要知道Windows操作系统的版本，使用下面这个API函数可以做到。

Option Explicit

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

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

osName As String ' 我自己加的, 操作系统的名称

End Type

' 获得 Windows 操作系统的版本

' OSVERSIONINFO 结构中的 osName 返回操作系统的名称

Private Function GetWindowsVersion() As OSVERSIONINFO

Dim ver As OSVERSIONINFO

ver.dwOSVersionInfoSize = 148

GetVersionEx ver

With ver

Select Case .dwPlatformId

Case 1

Select Case .dwMinorVersion

Case 0

.osName = "Windows 95"

Case 10

.osName = "Windows 98"

Case 90

.osName = "Windows Mellinnium"

End Select

Case 2

Select Case .dwMajorVersion

Case 3

.osName = "Windows NT 3.51"

Case 4

.osName = "Windows NT 4.0"

Case 5

Select Case .dwMinorVersion

Case 0

.osName = "Windows 2000"

Case 1

.osName = "Windows XP"

Case 2

.osName = "Windows Server 2003"

End Select

End Select

Case Else

.osName = "Failed"

End Select

End With

GetWindowsVersion = ver

End Function

Private Sub Command1_Click()

Dim ver As OSVERSIONINFO

ver = GetWindowsVersion()

With ver

Debug.Print .osName, .dwMajorVersion, .dwMinorVersion, .dwBuildNumber, .dwPlatformId, .szCSDVersion

End With

End Sub