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.
