Prüfen ob das Betriebssystem Windows XP ist Verfasst am: 15.06.2009, 10:29
Beschreibung: Diese Funktion prüft ob das zur Zeit der Ausführung laufende Programm Windows XP ist.
Funktion:
Code:
Private Function IsWindowsXP() As Boolean<br /><br /> Dim OS As OperatingSystem = Environment.OSVersion <br /> Dim Result As Boolean = OS.Platform = _ <br /> PlatformID.Win32NT AndAlso ((OS.Version.Major = 5 AndAlso _<br /> OS.Version.Minor >= 1) OrElse OS.Version.Major > 5) <br /> If Result Then<br /> Return True<br /> Else<br /> Return False<br /> End If<br /><br />End Function
Beispiel:
Code:
If IsWindowsXP() Then<br /> MessageBox.Show("Windows XP wird genutzt!")<br />End If