[TRegistry] Problème de RootKey

Invité · 16/08/2006, 12h25

Bonjour,

J'utilise le code suivant dans mon application:

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
 
     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 :

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

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

**Linkin** · 16/08/2006, 13h36

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

Invité · 16/08/2006, 14h16

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

**Linkin** · 16/08/2006, 14h32

et avec (dans le with, après le create):

Code :

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

1
2
 
RootKey := HKEY_CURRENT_USER // (unité Windows)

**Linkin** · 16/08/2006, 14h35

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.