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.670 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. |
Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |