Ir para conteúdo
Fórum Script Brasil
  • 0

Registry


sem ideia p/ nick

Pergunta


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á !

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0
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.

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...