Registry

[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 ?

valeu ae desde já !

[Capablanca]

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 ?

valeu ae desde já !

Vou dar um primeiro "chute": experimente tirar a barra antes da palavra SOFTWARE.

Ficaria apenas:

========================

software\VoxMessenger\edit

========================

Abs.

[sem ideia p/ nick]

opa desculpa não postar antes estava com probs aqui na maquina. seguinte eu resolvi vendo que o

 reg : tregistry; 

tem que ser public e

 reg := TRegistry.Create; 

tem que estar nos dois tanto para gravar quanto para ler

[Capablanca]

opa desculpa não postar antes estava com probs aqui na maquina. seguinte eu resolvi vendo que o

 reg : tregistry; 

tem que ser public e

 reg := TRegistry.Create; 

tem que estar nos dois tanto para gravar quanto para ler.

Que bom que já conseguiu resolver.

Abs.

Foi mal... Ontem eu acabei esquecendo, mas ia comentar que de fato o

reg := TRegistry.Create; deveria ser utilizado tanto na gravação como na obtenção dos dados.

[Guest Guest]

beleza.

mais ate agora isso ae resolveu meu prob.

agora eu não consigo por ex apagar so uma pasta.

ex:

quando o usuario loga no programa ele cria a pasta la no regedit. quando usuario fizer alteraçoes ele vai gravando so que o no meu prog tem uma conta ADM (administrador) que eu posso apagar usuario. então eu queria deletar so a pasta daquele usuario. so que eu so consigo deletar TUDO, isso e ruim. porque outros usuarios perderiam seu perfil. voce sabe apagar so uma pasta ?????