Discussion :

[rpoulin]

NOTE AJOUTÉE: VOIR LE MESSAGE #10 POUR LE CODE FINAL (revu et corrigé)

ASTUCE: Comment identifier avec certitude la version Windows.

Réponse: En examinant toutes les fonctions API exportées par kernel32.dll
Ces fonctions sont différentes pour chaque version:

Ainsi:

GetLocaleInfoEx Vista, Server 2003, XP SP1, XP SP2, 2000, ME, NT4, 98, 95
GetLargePageMinimum Vista, Server
GetDLLDirectory Vista, Server 2003, XP, SP1
GetNativeSystemInfo Vista, Server 2003, XP SP1, XP
ReplaceFile Vista, Server 2003, XP SP1, XP, 2000
OpenThread Vista, Server 2003, XP SP1, XP, 2000, ME
GetThreadPriorityBoost Vista, Server 2003, XP SP1, XP, 2000, NT4
IsDebuggerPresent Vista, Server 2003, XP SP1, XP, 2000, ME, NT4, 98
GetDiskFreeSpaceEx Vista, Server 2003, XP SP1, XP, 2000, ME, NT4, 98, 95, 95R2
ConnectNamedPipe Vista, Server 2003, XP SP1, XP, 2000, NT3
Beep Vista, Server 2003, XP SP1, XP, 2000, ME, 98, NT3, 95

Cette fonction résume le tout:

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
  function GetTrueWindowsVersion: TWindowsVersion;
 
    function ExportsAPI(module: HMODULE; const apiName: string): boolean;
    begin
      Result := GetProcAddress(module, PChar(apiName)) <> nil;
    end; { ExportsAPI }
 
  var
    hKernel32: HMODULE;
 
  begin { GetTrueWindowsVersion }
    hKernel32 := GetModuleHandle('kernel32');
    Win32Check(hKernel32 <> 0);
    if ExportsAPI(hKernel32, 'GetLocaleInfoEx') then
      Result := wvWinVista
    else if ExportsAPI(hKernel32, 'GetLargePageMinimum') then
      Result := wvWinServer2003
    else if ExportsAPI(hKernel32, 'GetNativeSystemInfo') then
      Result := wvWinXP
    else if ExportsAPI(hKernel32, 'ReplaceFile') then
      Result := wvWin2000
    else if ExportsAPI(hKernel32, 'OpenThread') then
      Result := wvWinME
    else if ExportsAPI(hKernel32, 'GetThreadPriorityBoost') then
      Result := wvWinNT4
    else if ExportsAPI(hKernel32, 'IsDebuggerPresent') then  //aussi dans NT4
      Result := wvWin98
    else if ExportsAPI(hKernel32, 'GetDiskFreeSpaceEx') then  //aussi dans NT4
      Result := wvWin95OSR2
    else if ExportsAPI(hKernel32, 'ConnectNamedPipe') then
      Result := wvWinNT3
    else if ExportsAPI(hKernel32, 'Beep') then
      Result := wvWin95
    else // aucune idée de quoi il s'agit alors
      Result := GetWindowsVersion;
  end; { GetTrueWindowsVersion }

[Pedro]

Merci pour ta contribution

[Jipété]

Yep !

Code :

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

function GetTrueWindowsVersion: TWindowsVersion;

Et ce TWindowsVersion, il est déclaré où et comment ?
Que mon D7 ne le connait pas...

Et ça,

Code :

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

1
2
  else // aucune idée de quoi il s'agit alors
    Result := GetWindowsVersion;

Que mon SDK ne connait pas plus...
Merci,
--
jp

[rpoulin]

Ok ..... alors voilà tout le contexte, avec l'export de l'API et les constantes - évidemment j'avais oublié! - désolé.

Reste à voir si c'est valide pour Delphi 7.
Pour Delphi 2006 c'est bon.

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
 
unit WinVersion;
 
uses
  Windows,
  Messages,
  Consts,
  SysUtils,
  Classes,
 
type
  TWindowsVersion = (wvUnknown, wvWin31, wvWin95, wvWin95OSR2, wvWin98,
    wvWin98SE, wvWinME, wvWin9x, wvWinNT3, wvWinNT4, wvWin2000, wvWinXP,
    wvWinNT, wvWinServer2003, wvWinVista);
 
const
  CWindowsVersionStr: array [TWindowsVersion] of string = ('Inconnu',
    'Windows 3.1', 'Windows 95', 'Windows 95 OSR 2', 'Windows 98',
    'Windows 98 SE', 'Windows Me', 'Windows 9x', 'Windows NT 3.5',
    'Windows NT 4', 'Windows 2000', 'Windows XP', 'Windows NT', 'Windows Server 2003',
    'Windows Vista');
 
 function GetWindowsVersion: TWindowsVersion;
 
    function ExportsAPI(module: HMODULE; const apiName: string): boolean;
    begin
      Result := GetProcAddress(module, PChar(apiName)) <> nil;
    end; { ExportsAPI }
 
  var
    hKernel32: HMODULE; // Windows.pas 
 
  begin { GetWindowsVersion }
    hKernel32 := GetModuleHandle('kernel32');
    Win32Check(hKernel32 <> 0);
    if ExportsAPI(hKernel32, 'GetLocaleInfoEx') then
      Result := wvWinVista
    else if ExportsAPI(hKernel32, 'GetLargePageMinimum') then
      Result := wvWinServer2003
    else if ExportsAPI(hKernel32, 'GetNativeSystemInfo') then
      Result := wvWinXP
    else if ExportsAPI(hKernel32, 'ReplaceFile') then
      Result := wvWin2000
    else if ExportsAPI(hKernel32, 'OpenThread') then
      Result := wvWinME
    else if ExportsAPI(hKernel32, 'GetThreadPriorityBoost') then
      Result := wvWinNT4
    else if ExportsAPI(hKernel32, 'IsDebuggerPresent') then  // aussi dans NT4!
      Result := wvWin98
    else if ExportsAPI(hKernel32, 'GetDiskFreeSpaceEx') then  // aussi dans NT4!
      Result := wvWin95OSR2
    else if ExportsAPI(hKernel32, 'ConnectNamedPipe') then
      Result := wvWinNT3
    else if ExportsAPI(hKernel32, 'Beep') then
      Result := wvWin95
    else // aucune idée
      Result := GetWindowsVersion;
  end. { GetWindowsVersion }

[Jipété]

Code :

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

1
2
  else // aucune idée de quoi il s'agit alors
    Result := GetWindowsVersion;

Que mon SDK ne connait pas plus...

Ben si je mets ça en commentaire, ça compile.
Pas trop le temps de me pencher plus dessus, hélas...
--
jp

[DragonHeart]

essaie de remplacer ton

Code :

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

1
2
3
 
  else // aucune idée de quoi il s'agit alors
    Result := GetWindowsVersion;

par

Code :

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

1
2
3
 
else // aucune idée de quoi il s'agit alors
  Result := wvUnknown;

Ca devrait mieu marcher je pense

[Jipété]

Yep !

+ 1, DragonHeart,

Maintenant, la grande question c'est : « comment qu'on utilise cette fonction ? ».
Parce qu'un ShowMessage(GetTrueWindowsVersion); se fait bouler par le compilo (normal), et donc il faut convertir en string et je vois pas trop comment...
Et même si je passe pour un boulet, je suis sûr qu'un newbie un jour ou l'autre posera la question, donc autant avoir la réponse,
--
jp