Discussion :

[frantzgac]

Bonjour
Je cherche à lire la base de registre afin d’en extraire le répertoire d’installation de Firebird
(Code rédigé en Delphi)

Code Delphi :

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
begin
var
reg : TRegistry;
reginfo:TRegKeyInfo;
begin
reg := TRegistry.create;
reg.RootKey := HKEY_LOCAL_MACHINE;
if (reg.OpenKeyReadOnly(‘SOFTWARE\Firebird Project\Firebird Server\Instances’))
  then
  begin
  reg.GetKeyInfo(reginfo);
  Edit5.text:=inttostr(reginfo.NumSubKeys);
  end
  else
  Edit5.text:='Echec';
 
Reg.closeKey;
reg.Free;
end;

Le code ci-dessus renvoie «’Echec’»

si en revanche je mets une autre entrée de la même clé (HKEY_LOCAL_MACHINE\SOFTWARE) par exemple «ATI Technologies», j’obtiens : 1 (le nombre de sous clés)

Et si je poursuis ce test sur toutes les clés de HKEY_LOCAL_MACHINE\SOFTWARE je constate que certaines sont lues, d’autres, non. 'Logitech' n'est pas accessible mais 'Google' l'est.

Cela ne tient pas aux autorisations des clés. Elles sont toutes lisibles par les Utilisateurs.

Si quelqu'un a l'explication de ce curieux comportement ?

[Andnotor]

App et Firebird 32 ou 64 bits ?

Si ton app est 32 bits, ton code va énumérer les clés 32 bits (HKLM\SOFTWARE\WOW6432Node). A l'inverse si elle est 64 bits, ce sera les clés 64 bits (HKLM\SOFTWARE). Il faut mettre en place une redirection pour mélanger 32 et 64.

Exemple pour une app 32 bits voulant accéder au clés 64 bits :

Code Delphi :

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

1
2
3
4
reg := TRegistry.create(KEY_READ or KEY_WOW64_64KEY);
reg.RootKey := HKEY_LOCAL_MACHINE;
 
if reg.OpenKey('SOFTWARE\Firebird Project\Firebird Server\Instances', FALSE) then

A noter qu'il ne faut pas utiliser OpenKeyReadOnly sous D7 si tu veux accéder à la clé 64 bits. Cette méthode force le flag KEY_READ uniquement, KEY_WOW64_64KEY est perdu. Pas de problème avec les Delphi récents.

[frantzgac]

Bonjour et merci Andnotor ;-)

cela fonctionne en effet avec :

Code :

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

TRegistry.create(KEY_READ or $100);

La constante KEY_WOW64_64KEY n'est pas référencée sur mon poste mais on la trouve ici :

https://docs.microsoft.com/fr-fr/win...ectedfrom=MSDN

[frantzgac]

Bonjour

Le problème signalé dans le post initial résout le problème de l'ouverture de la clé de registre sur les systèmes Windows Seven ou Windows 10.
Mais il semble qu'il renaisse en version Windows 11 (pour être précis Windows 11 Home)

Le source suivant :

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

AnsiString S;
AnsiString KeyName="Software\\FireBird project\\FireBird Server\\Instances";
AnsiString KeyValue="DefaultInstance",

  TRegistry *Registry = new TRegistry(KEY_READ | KEY_WOW64_64KEY); 
  try
  {
    Registry->RootKey = HKEY_LOCAL_MACHINE;
    Registry->OpenKey(KeyName,false);
    S = Registry->ReadString(KeyValue);
  }
  __finally
  {
    delete Registry;
  }
  return S;

retourne "C:\\Program Files\\Firebird\\Firebird_2_1\\" sur un poste Windows Seven 7 Pro et sur poste Windows 10 Pro mais une chaine vide sur un poste Windows 11 et ceci même si l'on execute le programme en mode administrateur.

Je précise qu'évidemment Firebird 2.1 est installé sur le poste Win 11.

Après une recherche sur le net concernant Windows 11 je reste sans explication.

[Andnotor]

Je précise qu'évidemment Firebird 2.1 est installé sur le poste Win 11.

Tu t'es trompé en installant la version 32 bits alors