Discussion :

[LiffeurDeiench]

Bonjour,

Existe-il une fonction qui nous permette de connaître la version de Windows ? CheckWin32Version et Win32MajorVersion ne m'aident pas vraiment car elles sont influencées par le mode compatibilité, elles se comportent comme si l'OS était celui défini par ce mode. Par exemple, si mon application tourne sur Windows 7 en mode compatibilité Windows XP Win32MajorVersion me retourne 5 (Windows XP) alors que je voudrais qu'elle retourne 6 (Windows 7). Comment pourrais-je donc faire pour connaître le vrai OS installé sur la machine ?

Merci d'avance !

[SergioMaster]

C'est certainement possible via les WMI

[Thierry Laborde]

Bonjour,

Existe-il une fonction qui nous permette de connaître la version de Windows ?

Bonjour,

Quelle version de Delphi avez-vous ?

[LiffeurDeiench]

J'utilise Delphi XE

[Thierry Laborde]

Il existe une nouvelle classe TOSversion, mais malheureusement pour vous, si je ne me trompe pas, elle existe depuis XE2 :

http://docwiki.embarcadero.com/Libra...ils.TOSVersion

[Thierry Laborde]

Mais l'API GetNativeSystemInfo devrait vous aider :

https://msdn.microsoft.com/en-us/lib...40(VS.85).aspx

[LiffeurDeiench]

Oui, j'ai vu la classe "TOSversion", malheureusement l'utilisation de Delphi XE est indépendant de ma volonté donc j'ai fais une crois dessus ^^

Par contre, je n'ai pas l'impression que la fonction "GetNativeSystemInfo" retourne des indos par rapport à l'OS. Elle semble être liée à l'architecture du system.

Merci !

[Thierry Laborde]

Un lien qui pourra peut être vous aider :

http://www.delphidabbler.com/articles?article=23

[LiffeurDeiench]

Merci

[gaby277]

Bonjour,
En complément des informations de Thierry Laborde
Sous XE c'est pas simple ...
Jusqu'à Windows 8 de mémoire avec major et minor version on s'en sort (on trouve facilement du code)

On peut aussi lire le registre et récupérer quelques informations. Un morceau de code jamais vraiment fini :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
function VersionWinRegistre(): string;
 
var
  Registre: TRegistry;
  strVersionWindows: string;
  BoolWindows10: boolean;
  Bool64bit: boolean;
  i1, i2: integer;
  s1, s2: string;
  message: string;
 
begin
  // On detecte si Windows10 ou antérieur à Windows10
  BoolWindows10 := IsWindows10OrGreater;
  Bool64bit := IsWin64;
  strVersionWindows := '';
  Registre := TRegistry.Create; //Crée un objet TRegistry
  Registre.RootKey := HKEY_LOCAL_MACHINE; //Définit la clé principale
 
  Registre.OpenKeyReadOnly(CleInfosWindows);
 
  try
 
    strVersionWindows :=
      'Les informations sont issues de la lecture des valeurs de la clé : ';
    //memo1.Lines.Add(strVersionWindows);
    message := strVersionWindows + Newline;
 
    strVersionWindows := CleInfosWindows;
    //memo1.Lines.Add(strVersionWindows);
    //memo1.Lines.Add('');
    message := message + strVersionWindows + Newline;
 
    strVersionWindows := 'Os : ' + Registre.ReadString('ProductName');
    strVersionWindows := strVersionWindows +
      '   (service(s) pack non recherché(s))';
    //memo1.Lines.Add(strVersionWindows);
    message := message + strVersionWindows + Newline;
 
    // Si Windows 10 major et minor version ne sont pas dans la clé
    // 'CurrentVersion' mais CurrentMajorVersionNumber et CurrentMinorVersionNumber
    if BoolWindows10 then
    begin
      i1 := Registre.ReadInteger('CurrentMajorVersionNumber');
      i2 := Registre.ReadInteger('CurrentMinorVersionNumber');
      strVersionWindows := 'Major version  : ' + intTostr(i1) +
        ' Minor Version : ' + intTostr(i2);
      //memo1.Lines.Add(strVersionWindows);
      message := message + strVersionWindows + Newline;
    end
    else
    begin
      strVersionWindows := 'Major et minor version  : ' +
        Registre.ReadString('CurrentVersion');
      //memo1.Lines.Add(strVersionWindows);
      message := message + strVersionWindows + Newline;
    end;
 
    strVersionWindows := 'Build : ' + Registre.ReadString('CurrentBuild');
    //memo1.Lines.Add(strVersionWindows);
    //memo1.Lines.Add('');
    message := message + strVersionWindows + Newline;
    //    Nota  :
    //Pour le build sous XP sp3 la clé « Current build »  donne un résultat erroné
    // ( mais c’est indiqué dans la clé !) c’est « BuildLab »
    // qui donne la bonne valeur …
 
    strVersionWindows :=
      '(Programme testé uniquement sous XP 32, 8.1 64 et 10 64)';
    //memo1.Lines.Add(strVersionWindows);
    message := message + strVersionWindows + Newline;
    Result := message;
  except
    showmessage('Erreur certaines informations peuvent etre erronées:  ');
  end;
 
  Registre.CloseKey; //Ferme la clé
  Registre.Free; //Détruit l'objet
end;

[foetus]

C'est avec la fonction VerifyVersionInfo , mais si je ne dis pas de bêtises à partir de Windows 8, elle te retourne toujours Windows 8.

À ce que je comprends, Microsoft a plus ou moins déprécié GetVersion pour:

• forcer à utiliser les nouvelles APIs
• ne plus avoir d'applications compatibles à partir d'une version de Windows, mais une liste de versions de Windows sur lesquels l'application a été testée avec succès.

[Zatoobux]

C'est possible en utilisant une requête WMI sur root\cimv2, classe : Win32_OperatingSystem, propriété : Version

Quand je l'utilise pour obtenir un diagnostique du système de l'utilisateur, j'interroge également les propriété Caption, ServicePackMajorVersion, ServicePackMinorVersion, OSArchitecture.

[Thierry Laborde]

Bonjour,

Un lien qui peut être intéressant :

http://www.winsoft.sk/osversion.htm

Le source est fourni

[Jipété]

Yop !

Merci pour ce lien,

Un lien qui peut être intéressant :

http://www.winsoft.sk/osversion.htm

ça ressemble tout à fait à ce que je disais il y a une semaine et depuis, plus de nouvelles...

Bon, moi je ne peux pas tester à 100 % because je tourne avec le pingouin depuis trois ans et que ma machine virtuelle la plus récente est un XP, mais je le sentais bien (réminiscences de w2k/D7...)

[Andnotor]

ça ressemble tout à fait à ce que je disais il y a une semaine et depuis, plus de nouvelles...

Bon pour te répondre, lorsqu'on recherche dwMajorVersion, dwMinorVersion et dwBuildNumber, passer par une structure OSVERSIONINFO ou OSVERSIONINFOEX, c'est kif-kif bourricot.

[Zatoobux]

j'avais ouvert le sujet :
http://www.developpez.net/forums/d15...s-windows-8-a/ avec plusieurs liens sur le sujet.

Ici, comme le disais foetus, la version renvoyée dépendra de ce que tu indiques comme compatibilité de ton application dans le manifeste de l'application (si tu n'indique pas de compatibilité ca renvoie 6.2).

Applications not manifested for Windows 8.1 or Windows 10 will return the Windows 8 OS version value (6.2). Once an application is manifested for a given operating system version, GetVersionEx will always return the version that the application is manifested for in future releases. To manifest your applications for Windows 8.1 or Windows 10, refer to Targeting your application for Windows.

GetVersionEx ne renvoie plus la version de windows mais la version de windows pour laquelle tu indiques que ton application est compatible.

par contre
selon la discussion manifest-madness (https://blogs.msdn.microsoft.com/chu...ifest-madness/) VerifyVersionInfo a le meme comportement depuis Windows 10 :

With Windows 10 VerifyVersionInfo is now subject to the same manifest-based behavior as GetVersion(Ex): by default IsWindowsrGreater and earlier will return 'true' as expected on Windows 10, but both IsWindows8Point1OrGreater and IsWindows10OrGreater will return 'false' without the appropriate GUIDs present in the <compatibility> section

Je ne connais que WMI pour obtenir la version de Windows.