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

Unsere Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

JETZT KONTAKTIEREN

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.

JETZT KONTAKTIEREN