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. Es werden die folgenden Windows-Versionen erkannt:
' zunächst die benötigten API-Deklarationen Private Declare Function GetVersionEx Lib "kernel32" _ Alias "GetVersionExA" ( _ lpVersionInformation As OSVERSIONINFO) As Long Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Const VER_PLATFORM_WIN32_WINDOWS = 1 Const VER_PLATFORM_WIN32_NT = 2 ' Windowsversion ermitteln und als Text zurückgeben Public Function Betriebssystem() As String Dim OSString As String Dim OSVersion As OSVERSIONINFO Dim BuildNr As Long OSVersion.dwOSVersionInfoSize = Len(OSVersion) Call GetVersionEx(OSVersion) OSString = "" With OSVersion If (.dwBuildNumber And &HFFFF&) > &H7FFF Then BuildNr = (.dwBuildNumber And &HFFFF&) - &H10000 Else BuildNr = .dwBuildNumber And &HFFFF& End If ' 'Windows NT / Windows 2000 If .dwPlatformId = VER_PLATFORM_WIN32_NT Then If .dwMajorVersion = 4 Then OSString = "Windows NT" ElseIf .dwMajorVersion = 5 Then OSString = "Windows 2000" End If ElseIf .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then ' 'Windows 98/ Windows 98 SE If (.dwMajorVersion > 4) Or (.dwMajorVersion = 4 And _ .dwMinorVersion = 10) Then If BuildNr = 1998 Then OSString = "Windows 98" Else OSString = "Windows 98 SE" End If ' 'Windows 95 ElseIf (.dwMajorVersion = 4 And _ .dwMinorVersion = 0) Then OSString = "Windows 95" ' 'Windows ME ElseIf (.dwMajorVersion = 4 And _ .dwMinorVersion = 90) Then OSString = "Windows ME" End If End If End With Betriebssystem = OSString End Function Dieser Tipp wurde bereits 19.757 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |