Registry - (TÓPICO REPETIDO)

[sem ideia p/ nick]

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : Tregistry;
  teste : string;

begin
        reg := TRegistry.Create;
        try
        reg.RootKey := hkey_local_machine;                    \\acessa chave
        reg.OpenKey('\software\VoxMessenger\edit',true);  \\cria se não tiver pasta
        reg.WriteString('edit',Edit1.text);                            \\grava dados
        finally
        end;

end;
procedure TForm1.Button2Click(Sender: TObject);
var
        reg : tregistry;
begin

        reg.RootKey := hkey_local_machine;
        reg.OpenKey('\software\VoxMessenger\edit',true);
        Edit2.Text := reg.ReadString('edit');                           \\le os dados
end;

fala galera eu denovo, eu estou fazendo um prog meio complicado, então conforme vao surgindo as duvidas eu vou postando....

o prog cria chave e grava os dados. agora ele não esta lendo alguém sabe se tem alguma coisa errada ou então se eu esqueci de alguma coisa ?

desde já valeu ae

[sem ideia p/ nick]

ih caraca ...desculpa ae... se alguém puder redirecionar isso la para a parte de delphi !!!!!!