Lendo e gravando registros do Windows com Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Nesta dica veremos como gravar e ler registros do Windows com Delphi.

Quick Tips: Lendo e gravando registros do windows

 

Nesta quick tip veremos como gravar e ler registros do Windows.

 

No nosso exemplo teremos o seguinte formulário, onde no EdtChave digitaremos o nome da chave de nosso registro e no edtValor o valor para gravarmos neste registro.

Ao clicarmos em gravar, iremos inserir este registro no Windows.

 

O botão carregar quando acionado irá carregar no EdtValor o valor do registro digitado em EdtChave.




procedure TForm1.Button1Click(Sender: TObject);

Var Registro:TRegistry;

begin

  Registro := TRegistry.Create;

  Registro.RootKey:=HKEY_CURRENT_USER;

  if registro.OpenKey(edtChave.Text,true) then

  begin

    edtValor.Text := Registro.ReadString(edtChave.Text);

  end;

  registro.CloseKey;

  registro.Free;

end;

 

procedure TForm1.GravarClick(Sender: TObject);

Var Registro:TRegistry;

begin

  Registro := TRegistry.Create;

  Registro.RootKey:=HKEY_CURRENT_USER;

  if registro.OpenKey(edtChave.Text,true) then

  begin

    Registro.WriteString(edtChave.Text,edtValor.Text);

  end;

  registro.CloseKey;

  registro.Free;

end;

 

Como podemos observar no código àcima, criamos um objeto do tipo TRegistry e então definimos a chave pai dele como sendo a chave do usuário atual do Windows, após isso abrimos o registro com o OpenKey passando o nome da chave e depois manipulamos o mesmo, recuperando ou escrevendo o valor desejado. Por fim fechamos o registro e destruímos o objeto.

 

É isso aí pessoal, espero que tenham gostado.

Fiquem a vontade para criticar, tirar dúvidas e sugerir novos temas.
Abraço.

Ricardo Coelho

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?