Détecter la version du système d'exploitation windows
Cette courte fonction retourne la version de windows dont l'application est actuellement en cours d'exécution.
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
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
Détecter la version du système d'exploitation windows
By commentfaire
Détecter la version du système d'exploitation windows : Plusieurs milliers de conseils pour vous faciliter la vie.