Détecter windows 7 avec GetVersionEx ?
Bonjour à tous
je détecte les versions de windows avec ce code, sous D2007:
Code:
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
