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.

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.

Lendo e gravando registros do Windows com Delphi

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

Artigos relacionados