Détecter la version 32/64 bits de Windows sous Delphi

Version imprimable

14/10/2013, 20h14
Moustache

Détecter la version 32/64 bits de Windows sous Delphi

Voilà le problème que j'essaie de résoudre:

J'ai un programme qui tourne sous Delphi et qui fait appel parfois à un programme externe (.exe) qui ne fonctionne que sur une version 32 bits de Windows.
Je voudrais faire un test pour détecter la version 32/64 bits sur laquelle tourne mon programme afin de ne pas avoir un message d'erreur au lancement du programme externe.

La solution se trouve peut-être dans l'unité System ? Mais où ? Quelle fonction ?
Promis j'ai cherché dans les FAQ, les sources, etc... avant de vous solliciter !

Merci tout plein de votre aide.
Moustache

J'ai trouvé ça (pas testé):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function IsWOW64: Boolean;
type
  TIsWow64Process = function(
    Handle: THandle;
    var Res: BOOL
  ): BOOL; stdcall;
var
  IsWow64Result: BOOL;
  IsWow64Process: TIsWow64Process;
begin
  IsWow64Process := GetProcAddress(GetModuleHandle('kernel32'), 'IsWow64Process');
  if Assigned(IsWow64Process) then
  begin
    if not IsWow64Process(GetCurrentProcess, IsWow64Result) then
      raise Exception.Create('Bad process handle');
    Result := IsWow64Result;
  end
  else
    Result := False;
end;

15/10/2013, 10h36
ShaiLeTroll

Citation:

A pointer to a value that is set to TRUE if the process is running under WOW64. If the process is running under 32-bit Windows, the value is set to FALSE. If the process is a 64-bit application running under 64-bit Windows, the value is also set to FALSE.

Attention IsWow64Process indique qu'un process 32Bit tourne via Wow64 donc Win32 On Win64

Si c'est en Wow64, alors utilise GetNativeSystemInfo et wProcessorArchitecture pour connaitre quelques infos de plus
En dehors de Wow64, utilise GetSystemInfo

Si tu veux savoir si on process est compilé en 64Bits, tu peut regarder la taille de pointer = 4 ou 8

Tu peux aussi prévoir du code selon $IFDEF WIN32 ou $IFDEF WIN64

Bonjour !

Avec tout ça, moi je ne connais toujours pas la réponse. :roll:

Voici ce que j'avais trouvé de mon côté. Je ne sais pas si c'est vraiment exploitable.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Test;
 
{$APPTYPE CONSOLE}
 
uses
  Environment;
// http://castelain.developpez.com/articles/VariablesEnvironnement/
 
begin
  WriteLn(GetCurrentProcessEnvVar('OS')); // Windows_NT
  WriteLn(GetCurrentProcessEnvVar('PROCESSOR_ARCHITECTURE')); // x86
  WriteLn(GetCurrentProcessEnvVar('PROCESSOR_IDENTIFIER')); // AMD64 Family 22 Model 0 Stepping1, AuthenticAMD
  ReadLn;
end.

Donc je pensais à quelque chose comme ça. :roll:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Test2;
 
{$APPTYPE CONSOLE}
 
uses
  Environment;
// http://castelain.developpez.com/articles/VariablesEnvironnement/
 
var
  processorId: string;
  processor64: boolean;
 
begin
  processorId := GetCurrentProcessEnvVar('PROCESSOR_IDENTIFIER');
  processor64 := Pos('64', processorId) > 0;
  WriteLn(processor64); // TRUE
  ReadLn;
end.

15/10/2013, 18h46
ShaiLeTroll
Citation:

Envoyé par Roland Chastain

Avec tout ça, moi je ne connais toujours pas la réponse. :roll:

:mouarf: faut bien laisser chercher un peu !
C'est plus bien intéressant ! non ?

La MSDN au sujet de wProcessorArchitecture :

Citation:

PROCESSOR_ARCHITECTURE_AMD64 = 9 : x64 (AMD or Intel)
PROCESSOR_ARCHITECTURE_ARM = Reserved : ARM
PROCESSOR_ARCHITECTURE_IA64 = 6 : Intel Itanium-based
PROCESSOR_ARCHITECTURE_INTEL = 0 : x86
PROCESSOR_ARCHITECTURE_UNKNOWN0 xffff : Unknown architecture.

et WOW64 Implementation Details

Citation:

Environment variables

64-bit process
PROCESSOR_ARCHITECTURE=AMD64 or PROCESSOR_ARCHITECTURE=IA64

32-bit process
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_ARCHITEW6432=%PROCESSOR_ARCHITECTURE%

Si ton poste, cela renvoi x86 !

On peut penser que GetCurrentProcessEnvVar('PROCESSOR_ARCHITECTURE') ;
est proche de GetSystemInfo SYSTEM_INFO.wProcessorArchitecture avec la valeur PROCESSOR_ARCHITECTURE_INTEL qui indique un x86 (émulé)
GetSystemInfo = Valeur émulée

On peut penser que GetCurrentProcessEnvVar('PROCESSOR_ARCHITEW6432') ;
est proche de GetNativeSystemInfo SYSTEM_INFO.wProcessorArchitecture avec la valeur PROCESSOR_ARCHITECTURE_INTEL qui indique un AMD64 (réel)
GetNativeSystemInfo = Valeur réelle si 'IsWow64Process' renvoie true

D'ailleurs on voit bien x86 comme Archi alors que c'est un AMD64
A Mon avis, tu fais tourner une Application 32 Bit sur un 64Bit

La technique du 'PROCESSOR_IDENTIFIER' pourrait fonctionner avec AMD64 et Intel64
Il ne doit pas exister bcp d'autres CPU sur le marché PC

voir aussi sous CMD
Code:

1 2 3 echo %OS% echo %PROCESSOR_ARCHITECTURE% echo %PROCESSOR_IDENTIFIER%
Tu dois avoir une différence entre les echo et GetCurrentProcessEnvVar qui encapsule GetEnvironmentVariable dans une application Delphi 32Bit
Car CMD est une application 64Bit donc variable Win64

Pour un process 32Bit en Delphi 7 les Variables sont celles pour WoW64 !

Il faudrait aussi consulter :

Microsoft France - Aide et Support : Comment vérifier si l'ordinateur exécute un système d'exploitation 64 bits ou 32 bits.
Qui consite à lire HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0
16/10/2013, 06h55
Roland Chastain

Merci pour ces explications, ShaiLeTroll. J'ai compris maintenant.

Concernant les fonctions GetSystemInfo et GetNativeSystemInfo, il y a un exemple là.