|
Eine recht simple Möglichkeit, die aktuelle Windows-Version zu ermitteln, steckt in den Umgebungsvariablen verborgen. So liefert die Umgebungsvariable "OS" unter Windows NT und 2000 die Kennung "Windows_NT", während sie unter Windows 9x unbekannt ist. Zur Unterscheidung zwischen Windows NT und Windows 2000 können Sie die Umgebungsvariable "PROGRAMFILES" heranziehen, die wiederum unter Windows NT unbekannt ist.
Public Enum WinVersionConstants
wvWin9x
wvWinNT
wvWin2000
End Enum
Public Function WindowsVersion() As WinVersionConstants
Select Case True
Case Len(Environ$("OS")) = 0
WindowsVersion = wvWin9x
Case Len(Environ$("PROGRAMFILES")) = 0
WindowsVersion = wvWinNT
Case Else
WindowsVersion = wvWin2000
End Select
End Function
|