Discussion :

[mathieutlse]

bonjour,
Je n'arrive pas à enregistrer une clé de la base de registre.
par exemple de mettre toutes les valeurs des sous clé de HKEY_USERS\.DEFAULT dans un string.
est ce possible?
ceci afin de sauvegarder une partie des clé de mon registre et de les restaurer plus rapidement.

merci @+

[gord's]

pourquoi pas faire un import / export ?

[EDIT]
j'oubliai : pas facile avec le TRegistry de D5, regardes ce lien:
http://www.textcontrol.com/tx/newsgr...11/21/2500.htm
j'utilise TExRegistry sans problèmes
[/EDIT]

[mathieutlse]

je veux juste certain groupe de clé pas toutes, car lors de la restauration des clés cela planterais de remettre toutes la base de registre.
je regarde ton lien.

merci @+

[gord's]

tu n'est pas obligé d'exporter toute la base, tu peux spécifier une clé de niveau quelconque

[mathieutlse]

arf le lien est en anglais
le pb c qu'il a l'air payant ton composant non?

j'ai essayé plein de combinaison et je n'arrive à rien...
est ce qu'il faut le stocker dans un string ou dans un autre type de donnée?
avec un OpenKey?

@+

[gord's]

non, il est free.

voila un exemple d'export et d'import:

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
34
35
36
37
38
 
function ExportKey(cle, dstRep: PChar): integer;
var
    reg: TExRegistry;
begin
    result := 1;
    reg := TExRegistry.Create ;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if (reg.KeyExists(cle)) then begin
        try
            if reg.OpenKey(cle, false) then
                reg.ExportKey(dstRep+'\'+cstBckCle);
        except
            result:=0;
        end;
        reg.CloseKey ;
    end;
    reg.Free ;
end;
 
function RestoreKey(srcRep: PChar): integer;
var
    reg: TExRegistry;
    sr: TSearchRec;
begin
    result := 0;
    if (sysutils.FindFirst(srcRep + '\'+cstBckCle, faAnyFile, sr) = 0) then begin
        reg := TExRegistry.Create ;
        reg.RootKey := HKEY_LOCAL_MACHINE;
        try
            reg.ImportRegFile(srcRep+'\'+cstBckCle, true);
            result:=1;
        except
        end;
        reg.Free ;
    end;
    sysutils.FindClose(sr);
end;