如何从VB 6应用程序确定Windows版本？

以下代码将返回一个指示当前版本的Windows的字符串值。基本上，它所做的只是使用GetVersionEx API function从Windows获取系统版本号，然后将其与已知版本的Windows相匹配。

(请注意，有些事情没有完全检测到，例如，64位版本的Windows XP可能会报告为Server 2003.例如，确定用户是否运行Windows Vista或Server 2008的代码也没有被写的，但你可以采取这一点，根据需要进行调整。)

Option Explicit

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

Private Type OSVERSIONINFO
  OSVSize         As Long
  dwVerMajor      As Long
  dwVerMinor      As Long
  dwBuildnumber   As Long
  PlatformID      As Long
  szCSDVersion    As String * 128
End Type

Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2

' Returns the version of Windows that the user is running
Public Function GetWindowsVersion() As String
    Dim osv As OSVERSIONINFO
    osv.oSVSize = Len(osv)

    If GetVersionEx(osv) = 1 Then
        SELEct Case osv.PlatformID
            Case VER_PLATFORM_WIN32s
                GetWindowsVersion = "Win32s on Windows 3.1"
            Case VER_PLATFORM_WIN32_NT
                GetWindowsVersion = "Windows NT"

                SELEct Case osv.dwVerMajor
                    Case 3
                        GetWindowsVersion = "Windows NT 3.5"
                    Case 4
                        GetWindowsVersion = "Windows NT 4.0"
                    Case 5
                        SELEct Case osv.dwVerMinor
                            Case 0
                                GetWindowsVersion = "Windows 2000"
                            Case 1
                                GetWindowsVersion = "Windows XP"
                            Case 2
                                GetWindowsVersion = "Windows Server 2003"
                        End SELEct
                    Case 6
                        SELEct Case osv.dwVerMinor
                            Case 0
                                GetWindowsVersion = "Windows Vista/Server 2008"
                            Case 1
                                GetWindowsVersion = "Windows 7/Server 2008 R2"
                            Case 2
                                GetWindowsVersion = "Windows 8/Server 2012"
                            Case 3
                                GetWindowsVersion = "Windows 8.1/Server 2012 R2"
                        End SELEct
                End SELEct

            Case VER_PLATFORM_WIN32_WINDOWS:
                SELEct Case osv.dwVerMinor
                    Case 0
                        GetWindowsVersion = "Windows 95"
                    Case 90
                        GetWindowsVersion = "Windows Me"
                    Case Else
                        GetWindowsVersion = "Windows 98"
                End SELEct
        End SELEct
    Else
        GetWindowsVersion = "Unable to identify your version of Windows."
    End If
End Function

另外，如果您不需要定位Windows的最早版本，则可以通过传递OSVERSIONINFOEX structure来获取更多信息。我只是在C中写了这个代码，文档很容易理解。

确定主机OS是否是VB 6可执行文件的32位或64位有点棘手。原因是因为VB 6无法编译64位应用程序。您在VB 6中编写的所有内容将作为32位应用程序运行。而32位应用程序则在Windows Windows(WOW64)子系统中的64位版本的Windows上运行。他们将始终将当前版本的Windows报告为32位，因为这是他们看到的。

我们可以解决这个问题，最初假设主机操作系统是32位，并试图证明这一点。以下是一些示例代码：

Private Declare Function GetProcAddress Lib "kernel32" _
    (ByVal hModule As Long,ByVal lpProcName As String) As Long

Private Declare Function GetModuleHandle Lib "kernel32" _
    Alias "GetModuleHandleA" (ByVal lpModulename As String) As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Declare Function IsWow64Process Lib "kernel32" _
    (ByVal hProc As Long,ByRef bWow64Process As Boolean) As Long

Public Function IsHost64Bit() As Boolean
    Dim handle As Long
    Dim is64Bit As Boolean

    ' Assume initially that this is not a WOW64 process
    is64Bit = false

    ' Then try to prove that wrong by attempTing to load the
    ' IsWow64Process function dynamically
    handle = GetProcAddress(GetModuleHandle("kernel32"),"IsWow64Process")

    ' The function exists,so call it
    If handle <> 0 Then
        IsWow64Process GetCurrentProcess(),is64Bit
    End If

    ' Return the value
    IsHost64Bit = is64Bit
End Function