Windows 95, Windows 98, Windows ME, Windows NT, Windows 2000, Windows XP oder Windows Vista? ' zunächst die benötigten API-Deklarationen 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 Declare Function GetVersionEx Lib "kernel32" _ Alias "GetVersionExA" ( _ ByRef lpVersionInformation As OSVERSIONINFO) As Long Private Const VER_PLATFORM_WIN32_NT = 2 Private Const VER_PLATFORM_WIN32_WINDOWS = 1 ' Windows 95? Public Function IsWin95() As Boolean Dim OSVersion As OSVERSIONINFO With OSVersion .dwOSVersionInfoSize = Len(OSVersion) GetVersionEx OSVersion IsWin95 = (.dwPlatformID = VER_PLATFORM_WIN32_WINDOWS) AND _ (.dwMajorVersion = 4 And .dwMinorVersion = 0) End With End Function ' Windows 98? Public Function IsWin98() As Boolean Dim OSVersion As OSVERSIONINFO With OSVersion .dwOSVersionInfoSize = Len(OSVersion) GetVersionEx OSVersion IsWin98 = (.dwPlatformID = VER_PLATFORM_WIN32_WINDOWS) And _ ((.dwMajorVersion > 4) Or _ (.dwMajorVersion = 4 And .dwMinorVersion = 10)) End With End Function ' Windows ME? Public Function IsWinME() As Boolean Dim OSVersion As OSVERSIONINFO With OSVersion .dwOSVersionInfoSize = Len(OSVersion) GetVersionEx OSVersion IsWinME = (.dwPlatformID = VER_PLATFORM_WIN32_WINDOWS) And _ (.dwMajorVersion = 4 And .dwMinorVersion = 90) End With End Function ' Windows NT? Public Function IsWinNT() As Boolean Dim OSVersion As OSVERSIONINFO With OSVersion .dwOSVersionInfoSize = Len(OSVersion) GetVersionEx OSVersion IsWinNT = (.dwPlatformID = VER_PLATFORM_WIN32_NT) And _ (.dwMajorVersion <= 4) End With End Function Tipp-Update vom 16.02.09 ' Windows 2000? Public Function IsWin2000() As Boolean Dim OSVersion As OSVERSIONINFO With OSVersion .dwOSVersionInfoSize = Len(OSVersion) GetVersionEx OSVersion IsWin2000 = (.dwPlatformID = VER_PLATFORM_WIN32_NT) And _ (.dwMajorVersion = 5 And .dwMinorVersion < 1) End With End Function ' Windows XP? Public Function IsWinXP() As Boolean Dim OSVersion As OSVERSIONINFO With OSVersion .dwOSVersionInfoSize = Len(OSVersion) GetVersionEx OSVersion IsWinXP = (.dwPlatformID = VER_PLATFORM_WIN32_NT) And _ (.dwMajorVersion = 5 And .dwMinorVersion >= 1) End With End Function ' Windows Vista? Public Function IsVista() As Boolean Dim OSVersion As OSVERSIONINFO With OSVersion .dwOSVersionInfoSize = Len(OSVersion) GetVersionEx OSVersion IsVista = (.dwPlatformID = VER_PLATFORM_WIN32_NT) And _ (.dwMajorVersion = 6) End With End Function Dieser Tipp wurde bereits 13.685 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 Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access |
||||||||||||||||
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. |