[TRegistry] Problème de RootKey

Version imprimable

Bonjour,

J'utilise le code suivant dans mon application:

Code:

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
 
     with Reg do
      begin
        TRegistry.Create;
        OpenKey('Software', True);
        OpenKey('JP''s', True);
        OpenKey('To100', True);
        if KeyExists('ColorNumbers') then
         begin
           ColorNumbers := Reg.ReadInteger('ColorNumbers');
           ColorEmptyBox := Reg.ReadInteger('ColorEmptyBox');
           ColorSelectedBox := Reg.ReadInteger('ColorSelectedBox');
           ColorPossibleBox := Reg.ReadInteger('ColorPossibleBox');
           ColorLatestBox := Reg.ReadInteger('ColorLatestBox');
           CloseKey;
           Destroy;
         end
        else
         begin
           ColorNumbers := clBlack;
           ColorEmptyBox := clWhite;
           ColorSelectedBox := clSilver;
           ColorPossibleBox := clNavy;
           ColorLatestBox := clGray;
           WriteInteger('ColorNumbers', ColorNumbers);
           WriteInteger('ColorEmptyBox', ColorEmptyBox);
           WriteInteger('ColorSelectedBox', ColorSelectedBox);
           WriteInteger('ColorPossibleBox', ColorPossibleBox);
           WriteInteger('ColorLatestBox', ColorLatestBox);
           CloseKey;
           Destroy;
         end;
      end;

Puis, celui-ci (qui est identique dans la forme):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
     with Reg do
      begin
        TRegistry.Create;
        OpenKey('Software', True);
        OpenKey('JP''s', True);
        OpenKey('To100', True);
        WriteInteger('ColorNumbers', ColorNumbers);
        WriteInteger('ColorEmptyBox', ColorEmptyBox);
        WriteInteger('ColorSelectedBox', ColorSelectedBox);
        WriteInteger('ColorPossibleBox', ColorPossibleBox);
        WriteInteger('ColorLatestBox', ColorPossibleBox);
        CloseKey;
        Destroy;
      end;

Ma variable Reg est privée à la fonction dans laquelle elle est applelée.

Mon problème est que l'une des fonction va pointer sur HKEY_USERS\S-1-5-21-507921405-764733703-839522115-1153\Software\JP's\To100 et l'autre sur HKEY_CURRENT_USER\Software\JP's\To100.

Le problème est donc que j'écris mes valeurs dans une clé et je les lis dans une autre qui a été écrite auparavant!!! (c'est pas très clair tout ça)

Est-ce que l'un de vous aurait une idée pour que je puisse tout le temps pointer vers la même RootKey?

Merci d'avance.

Jérôme

16/08/2006, 13h36
Linkin

D'une part, il ne faut pas utiliser le Destroy, il me semble, mais un Free.

D'autre part, il y a la possibilité de préciser le RootKey
16/08/2006, 14h16
Invité

Merci pour ta réponse.

J'ai mis Free à la place de Destroy, mais le résultat est le même...
J'ai essayé de rajouter "RootKey := 0;", mais c'est déjà le cas, je le vois en faisant "ShowMessage(InttoStr(CurrentKey))".

Mon problème est que l'une des fonction va pointer sur HKEY_USERS\S-1-5-21-507921405-764733703-839522115-1153\Software\JP's\To100 et l'autre sur HKEY_CURRENT_USER\Software\JP's\To100.
J'ai fait le test... Si je supprime manuellement l'une des Clés, l'autre est supprimée automatiquement, par contre, à priori, elle n'est pas mise à jour.

Avez vous plus de conseils, des idées?

Merci
16/08/2006, 14h32
Linkin
et avec (dans le with, après le create):
Code:

1 2 RootKey := HKEY_CURRENT_USER // (unité Windows)
16/08/2006, 14h35
Linkin

Je viens de relire!!

En fait CurrentUser est une "copie" de l'utilisateur qui a ouvert la session (il me semble que c'est pour un fonctionnement plus simple)

Donc en lien direct avec l'utilisateur correspondant à S-1-5-21-507921405-764733703-839522115-1153. Si tu fais un changement sur l'un forcément il sera répercuté sur l'autre.
16/08/2006, 14h40
Invité

J'ai trouvé d'où venait mon problème...
Je suis trop bête en fait, c'est tout!

Je me suis trompé dans le code suivant:

Code:

if KeyExists('ColorNumbers') then

'ColorNumbers' étant une valeur et non une clé, j'aurai dû mettre:

Code:

if ValueExists('ColorNumbers') then

Là, ça marche!!!

Merci quand même, ça me servira!