Bonjour à tous

je détecte les versions de windows avec ce code, sous D2007:

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
function VersionWindows:TVersionWindows;
var OSv : OsVersionInfo;
begin
  OSv.dwOSVersionInfoSize := SizeOf (OSv);
  GetVersionEx (OSv);
  case OSv.dwPlatformId of
    VER_PLATFORM_WIN32_NT: case OSv.dwMajorVersion of
                             3 : Result := WIN_NT351;
                             4 : Result := WIN_NT4;
                             5 : case Osv.dwMinorVersion of
                                   0 : Result := WIN_2000;
                                   1 : Result := Win_XP;
                                   2 : Result := Win_2003S;
                                   else Result := WinError;
                                 end;
                             6 : Result := WIN_Vista;
                             else Result := WINError;
                           end;
    VER_PLATFORM_WIN32_WINDOWS:
         if (OSv.dwMajorVersion > 4) or
            ( (OSv.dwMajorVersion = 4) and (OSv.dwMinorVersion > 0) )
            then Result := WIN_98 else Result := WIN_95;
    VER_PLATFORM_WIN32s: Result := Win_32s;
      else Result := WINError;
  end;
end;
et TVersionWindows = (WIN_95,WIN_98,WIN_32s,WIN_NT351,WIN_NT4,WIN_2000,WIN_2003S,
WIN_XP,WIN_Vista,WINError);

--->
---> Comment détecter le nouveau windows 7. Je trouve rien sur MSDN...

Merci
Pascal 07