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

loveplc

很多时候我们需要知道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
dwPlatform i d 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
s el e c t Case .dwPlatform i d
Case 1
s el e c t Case .dwMinorVersion
Case 0
.osName ＝ "Windows 95"
Case 10
.osName ＝ "Windows 98"
Case 90
.osName ＝ "Windows Mellinnium"
End s el e c t
Case 2
s el e c t Case .dwMajorVersion
Case 3
.osName ＝ "Windows NT 3.51"
Case 4
.osName ＝ "Windows NT 4.0"
Case 5
s el e c t Case .dwMinorVersion
Case 0
.osName ＝ "Windows 2000"
Case 1
.osName ＝ "Windows XP"
Case 2
.osName ＝ "Windows Server 2003"
End s el e c t
End s el e c t
Case Else
.osName ＝ "Failed"
End s el e c t
End With
GetWindowsVersion ＝ ver
End Function

Private Sub Command1_Click()
Dim ver As OSVERSIONINFO
ver ＝ GetWindowsVersion()
With ver
Debug.Print .osName, .dwMajorVersion, .dwMinorVersion, .dwBuildNumber, .dwPlatform i d, .szCSDVersion
End With
End Sub

[此贴子已经被作者于2007-1-14 23:12:06编辑过]

xuliang987

学习中