Windows-Version ermitteln
Veröffentlicht am 02.06.2005
Für die Info-Box Ihrer Anwendung ist es meist aufschlußreich, die aktuelle Windows-Version anzuzeigen. Die API-Funktion GetVersion kann Ihnen diese Information mitteilen.
Die parameterlose Funktion wird in einem VBA-Modul deklariert:
Declare Function GetVersion Lib "kernel32" () As Long
Die Funktion gibt einen Wert zurück, mit dem Sie unter Zuhilfenahme verschiedener Hex-Werten die Versionnummer von Windows ausrechnen:
Public Function WinVersionAnzeigen()
Dim ret As Long
Dim iVersionGross As Integer, iVersionKlein As Integer
ret = GetVersion()
iVersionGross = ret And &HFF&
iVersionKlein = (ret And &HFF00&) / &H100&
Debug.Print "Versionnummer: " & iVersionGross & "." & iVersionKlein
If ret And &H80000000 Then
Debug.Print "Windows 95"
Else
Debug.Print "Windows NT"
End If
End Function