Discussion :

[PhilLU]

Comment pratiquement récupérer la version avec le code suivant?
Comment connaitre le SP?
Comment le modifier pour qu'il soit compatible W7 (32 et 64) et W8?

Merci d'avance!
PhilLu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 type TWinVersion = (wvUnknown, wvWin95, wvWin98, wvWin98SE, wvWinNT, wvWinME, wvWin2000, wvWinXP, wvWinVista) ;
 ...
 
 function GetWinVersion: TWinVersion;
 var
    osVerInfo: TOSVersionInfo;
    majorVersion, minorVersion: Integer;
 begin
    Result := wvUnknown;
    osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo) ;
    if GetVersionEx(osVerInfo) then
    begin
      minorVersion := osVerInfo.dwMinorVersion;
      majorVersion := osVerInfo.dwMajorVersion;
      case osVerInfo.dwPlatformId of
        VER_PLATFORM_WIN32_NT:
        begin
          if majorVersion <= 4 then
            Result := wvWinNT
          else if (majorVersion = 5) and (minorVersion = 0) then
            Result := wvWin2000
          else if (majorVersion = 5) and (minorVersion = 1) then
            Result := wvWinXP
          else if (majorVersion = 6) then
            Result := wvWinVista;
        end;
        VER_PLATFORM_WIN32_WINDOWS:
        begin
          if (majorVersion = 4) and (minorVersion = 0) then
            Result := wvWin95
          else if (majorVersion = 4) and (minorVersion = 10) then
          begin
            if osVerInfo.szCSDVersion[1] = 'A' then
              Result := wvWin98SE
            else
              Result := wvWin98;
          end
          else if (majorVersion = 4) and (minorVersion = 90) then
            Result := wvWinME
          else
            Result := wvUnknown;
        end;
      end;
    end;
 end;

[ShaiLeTroll]

Comment pratiquement récupérer la version avec le code suivant?

Hein ?
cela renvoie une énumération, tu peux écrire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if GetWinVersion() = wvWinVista then
if GetWinVersion() in [wvWinXP, wvWinVista] then

Comment le modifier pour qu'il soit compatible W7 (32 et 64) et W8?

BuzzLeclaire a déjà répondu à cette demande dans le sujet Win32MajorVersion avec Delphi 7 [Résolu] en testant wProcessorArchitecture pour le 32/64 et Seven

Pour le 8, même l'exemple C++ MSDN n'est pas encore à jour mais c'est clairement écrit dans la MSDN de OSVERSIONINFOEX

Windows 8 est un 6.2 !!!


Comment connaitre le SP?
ServicePackMajorVersion dans WMI