Rubrik: System/Windows · Sonstiges | VB-Versionen: VB4, VB5, VB6 | 01.11.00 |
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: | Views: 18.369 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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