Détecter la version du système d'exploitation windows

Detecter la version du systeme d'exploitation windows

Detecter la version du systeme d'exploitation windows : Plusieurs milliers de conseils pour vous faciliter la vie.

Cette courte fonction retourne la version de windows dont l'application est actuellement en cours d'execution.

type
TWindowsVersion = (wvWin9x, wvWinNT, wvWin2k, wvWinXP)

la fonction GetWindowsVersion: TWindowsVersion
begin
Result := wvWin9x
si Win32Platform = VER_PLATFORM_WIN32_NT puis
cas Win32MajorVersion de
3..4: Result := wvWinNT
5: cas Win32MinorVersion de
0: Result := wvWin2k
1: Result := wvWinXP
fin
fin
fin