Onde está o erro (TRegistry) ???

Olá pessoal, tudo bem?

Estou tendo problemas para usar algumas rotinas desconhecidas (ou pouco utilizadas) do TRegistry.
Antes de perguntar, quero deixar claro que já vi no help e já pesquisei no google, etc. No help consegui solucionar a função KeySave para salvar no arquivo .reg (em formato binário), mas a função RestoreKey não consegui recuperar a bendita chave salva no arquivo. [b:9b01a1b05a]Tentei de diversas formas[/b:9b01a1b05a] mas não obtive sucesso. Claro, renomeei a pasta no registro para saber se foi recuperado e não deu em nada.

Estou usando o seguinte código para salvar (testei e funfa 100¬):

[b:9b01a1b05a]procedure[/b:9b01a1b05a] TForm1.Button1Click([b:9b01a1b05a]Sender[/b:9b01a1b05a]: TObject);
[b:9b01a1b05a]const[/b:9b01a1b05a]
(* Abaixo é umachave somente de exemplo e a mesma deve ser criada *)
_CKey = ´\CLSID\\´;
[b:9b01a1b05a]var[/b:9b01a1b05a]
_Reg : TRegistry;
_sFile : [b:9b01a1b05a]String[/b:9b01a1b05a];
[b:9b01a1b05a]begin[/b:9b01a1b05a]
__sFile:=ExpandFileName(ExtractFilePath(Application.ExeName)+´backup.reg´);
__Reg.TRegistry.Create;
__Reg.RootKey:=HKEY_ROOT_KEY; (* Não lembro, é a primeira *)
__Reg.Access:=KEY_ALL_ACCESS;
__[b:9b01a1b05a]if[/b:9b01a1b05a] Reg.SaveKey(CKey,sFile) = False then
___ShowMessage(´[i:9b01a1b05a]Ocorreu um erro: Ou você fez algo errado, ou não criou aquela chave no registro (sem a chave, vai fazer backup de que?), ou você está executando o aplicativo nas pastas [b:9b01a1b05a]´Meus Documentos´[/b:9b01a1b05a] ou [b:9b01a1b05a]´Arquivos de Programas´[/b:9b01a1b05a] ou uma de suas [b:9b01a1b05a]sub-pastas[/b:9b01a1b05a], coisa que não é permitido e não me pergunte ´o por quê´[/i:9b01a1b05a] :lol: ´);

__Reg.Free;
[b:9b01a1b05a]end[/b:9b01a1b05a];

[b:9b01a1b05a]----------------------------------------------------------------------------[/b:9b01a1b05a]

Para recuperar está dando erro, queria saber se voce sabe onde está o erro e, caso não saiba e quiser ver no help poderá ver que não estou fazendo nada de errado:

(* É claro que eu renomeei a chave para que possa ser recuperado (no registro do windows). *)

[b:9b01a1b05a]procedure[/b:9b01a1b05a] TForm1.Button2Click([b:9b01a1b05a]Sender[/b:9b01a1b05a]: TObject);
[b:9b01a1b05a]const[/b:9b01a1b05a]
(* Abaixo é umachave somente de exemplo e a mesma deve ser criada *)
_CKey = ´\CLSID\\´;
(* Tentei color somente ´\CLSID\´
[b:9b01a1b05a]var[/b:9b01a1b05a]
_Reg : TRegistry;
_sFile : [b:9b01a1b05a]String[/b:9b01a1b05a];
[b:9b01a1b05a]begin[/b:9b01a1b05a]
__sFile:=ExpandFileName(ExtractFilePath(Application.ExeName)+´backup.reg´);
__Reg.TRegistry.Create;
__Reg.RootKey:=HKEY_ROOT_KEY; (* Não lembro, é a primeira *)
__Reg.Access:=KEY_ALL_ACCESS;
__Reg.RestoreKey(CKey,sFile);

(* Tentei também com osvalores boolean como na função SaveKey dita acima e não tive sucesso, fiz várias alterações e a droga não consegue recuperar, o arquivo backup.reg está na pasta do executável como informa no link da variável, não consigo ver onde estou errando *)

__Reg.Free;
[b:9b01a1b05a]end[/b:9b01a1b05a];


Agradeço a todos que venham a solucionar, só peço que façam um teste antes, pois até vendo o help e fazendo não consegui desvendar este mistério, a outra função eu tive alguns probleminhas mas foi resolvido quando acessei o help do Delphi, quantoa este outro (RestoreKey) NADA...

:wink:

Falowww