Discussion :

[WebPac]

Bonjour tout le monde,

je vais lire dans la base de registre le répertoire d'installation d'Excel avec un chemin du style HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Excel\InstallRoot.

Hors mon application est du type x86 et va donc lire les clés HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node sur les poste 64 bits et je n'arrive pas à retrouver la clé.

Est-il possible de forcer l'ouverture des clés 64 bits même avec une application 32 bits ?

Merci d'avance pour votre aide.

[WebPac]

Je me réponds car j'ai trouvé la solution :

Code :

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

1
2
3
4
5
6
7
8
 
procedure Toto;
var
  Registre : TRegistry;
begin
  Registre := TRegistry.Create( KEY_READ or $0100 );
// ...
end;

Pour connaitre les valeurs possibles : http://msdn.microsoft.com/en-us/library/aa384129.aspx

Il me reste plus qu'à trouver la bonne méthode pour savoir si je suis sûr un poste 64bits ou pas et c'est dans la boite.

[WebPac]

Je n'ai pas trouvé de solution idéale pour savoir si on était sur du 64 bits, je me suis basé sur la variable d'environnement PROCESSOR_ARCHITECTURE

Code :

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

1
2
3
4
function IsWindows64Bits : Boolean;
begin
  Result := Pos( '64', SysUtils.GetEnvironmentVariable( 'PROCESSOR_ARCHITECTURE' ) ) > 0;
end;

[WebPac]

Finalement, le dernier code ne me permet pas de savoir si je suis sur une architecture 64bits ou pas alors j'ai réutilisé ce code : http://www.delphipraxis.net/86651-re...w6432node.html

PS : je suis content de pas me sentir tout seul et sans amis.

[J-P-B]

Merci pour avoir partagé ta solution, c'est exactement ce que je cherchais !