[RESOLVED] Detecting Windows7

[urbycoz]

Anyone know the best way to determine whether the user is running windows7?

I have methods for isWindowsXP and isWindowsVista:

Function IsWindowsXP() As Boolean
    
Dim osvi As OSVERSIONINFO
Dim strCSDVersion As String
Dim MajorVersion, MinorVersion, ServicePack, PlatformId

osvi.dwOSVersionInfoSize = Len(osvi)

If GetVersionEx(osvi) = 0 Then
    Exit Function
End If

strCSDVersion = StripTerminatorOS(osvi.szCSDVersion)

MajorVersion = osvi.dwMajorVersion
MinorVersion = osvi.dwMinorVersion
ServicePack = strCSDVersion
PlatformId = osvi.dwPlatformId

Const dwMaskXP = &H2&
    Dim XP
    XP = (PlatformId And dwMaskXP)

If MajorVersion = 5 And XP Then  'XP

    IsWindowsXP = True
Else
    IsWindowsXP = False
End If
'MsgBox "IsWindowsXP=" & IsWindowsXP & vbCrLf & " MAJOR VER=" & MajorVersion & vbCrLf & " XP = " & XP & vbCrLf & " PlatformId = " & PlatformId & vbCrLf & " MinOR VER=" & MinorVersion & vbCrLf & "ServicePack=" & ServicePack
End Function

Function IsWindowsVista() As Boolean
    
Dim osvi As OSVERSIONINFO
Dim strCSDVersion As String
Dim MajorVersion, MinorVersion, ServicePack, PlatformId

osvi.dwOSVersionInfoSize = Len(osvi)

If GetVersionEx(osvi) = 0 Then
    Exit Function
End If

strCSDVersion = StripTerminator(osvi.szCSDVersion)

MajorVersion = osvi.dwMajorVersion
MinorVersion = osvi.dwMinorVersion
ServicePack = strCSDVersion
PlatformId = osvi.dwPlatformId


Const dwMaskVista = &H2&

    'MsgBox "dwMaskVista: " & dwMaskVista, vbOKOnly 'mk
    
    Dim Vista
    Vista = (PlatformId And dwMaskVista)

If MajorVersion = 6 And Vista Then  'Vista

    IsWindowsVista = True
       
Else
    IsWindowsVista = False
    
End If
End Function

Currently, when running windows7, isWindowsXP returns false and isWindowsVista returns true. Ideally I need both to be false, and a new function isWindows7, which would return true.

[si_the_geek]

The documentation for OSVERSIONINFO says what values you should be checking for:
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

[RhinoBull]

Add Win7 info from MSDN to this nicely written wrapper and you will get what you need.

[some1uk03]

More Like:

Dim getOSVersion as String

            If MajorVersion = 5 Then
                Select Case MinorVersion 
                    Case 0
                        getOSVersion = "Windows 2000"
                    Case 1
                        getOSVersion = "Windows XP"
                    Case 2
                        getOSVersion = "Windows .NET Server"
                End Select
            End If
            
            If MajorVersion  = 6 Then
               Select Case MinorVersion 
                    Case 0
                        getOSVersion = "Vista"
                    Case 1
                        getOSVersion = "Windows 7"
                    Case Else
                        getOSVersion = "Windows Other"
               End Select
            End If

[si_the_geek]

I have moved some off-topic posts to a new thread.

Note that even if you have subscribed to this thread (and so get notification when there are new posts), you will not be subscribed to the new thread - so if you want to be subscribed to it, open it and go to "Thread Tools"->"Subscribe".

[urbycoz]

Thank you all. I got it working by checking the minorversion value. Here's the function in its full:

Function IsWindows7() As Boolean
    
Dim osvi As OSVERSIONINFO
Dim strCSDVersion As String
Dim MajorVersion, MinorVersion, ServicePack, PlatformId

osvi.dwOSVersionInfoSize = Len(osvi)

If GetVersionEx(osvi) = 0 Then
    Exit Function
End If

strCSDVersion = StripTerminator(osvi.szCSDVersion)

MajorVersion = osvi.dwMajorVersion
MinorVersion = osvi.dwMinorVersion
ServicePack = strCSDVersion
PlatformId = osvi.dwPlatformId

If MajorVersion = 6 And MinorVersion = 1 Then

    IsWindows7 = True
       
Else
    IsWindows7 = False
    
End If
End Function