Windows-Version ermitteln Hier wird gezeigt, wie man die installierte Windows-Version ermittelt (Win 3.x, Win 95, Win98, WinNT oder Win2000).
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  18.355
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 16 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Immer mehr unterschiedliche Windows-Versionen erscheinen auf dem Markt und nicht jedes Windows ist immer Windows-kompatibel. Mit nachfolgendem Code und einer API-Funktion können Sie die verwendete Windows-Version ermitteln.

Private Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128
End Type
 
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
 
Private Declare Function GetVersionEx Lib "kernel32" _
  Alias "GetVersionExA" ( _
  lpVersionInformation As OSVERSIONINFO) As Long
 
Dim OSVersion As OSVERSIONINFO   
With OSVersion
  .dwOSVersionInfoSize = Len(OSVersion)
  GetVersionEx OSVersion
  If .dwPlatformID = VER_PLATFORM_WIN32_WINDOWS Then
    If .dwMinorVersion <= 0 Then
      ' Windows 95
      ...
    ElseIf .dwMinorVersion > 0 Then
      ' Windows 98
      ...
    End If
  ElseIf .dwPlatformID = VER_PLATFORM_WIN32_NT Then
    If .dwMajorVersion <= 4 Then
      ' Windows NT 3.x/4.0
      ...
    Else
      ' Windows 2000 (NT 5.0)
      ...
    End If
  End If
End With