Artigos Delphi Lendo e gravando registros do Windows com Delphi

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.

Botão Gravar e Carregar no Delphi 
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.