Die Windows os Version erkennen

Die Windows os Version erkennen

Die Windows os Version erkennen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Diese kurze Funktion gibt welche Version von Windows zurück, die die Anwendung derzeit ausgeführt wird.

Typ
TWindowsVersion = (wvWin9x, WvWinNT, wvWin2k, WvWinXP);

GetWindowsVersion-Funktion: TWindowsVersion;
beginnen
Ergebnis: = wvWin9x;
Wenn Win32Platform = VER_PLATFORM_WIN32_NT then
Fall Win32MajorVersion
3..4: Ergebnis: = WvWinNT;
5: Win32MinorVersion von RS
0: Ergebnis: = wvWin2k;
1: Ergebnis: = WvWinXP;
Ende;
Ende;
Ende;