Fórum Trabalhar com registros(Regedit) #352320

var
  r:tRegistry;
begin
  //Insancia a váriavel r
  r := tRegistry.Create;
  //Indica onde fica a raiz que deseja trabalhar.
  r.RootKey := HKEY_CURRENT_USER;
  //Abre a chave ou cria a mesma caso ela não exista.
  r.OpenKey(´\Software\SeuPrograma\´,True);
  //Grava um valor string
  r.WriteString(´ValorString´,´Coloque aqui a string que deseja salvar´);
  //Grava um valor Float
  r.WriteFloat(´ValorFloat´,10);
  //Grava um valor boolean
  r.WriteBoolean(´ValorBoolean´,True);
  //Fecha a chave e grava as alterações feitas.
  r.CloseKey;
  //Libera da memória a váriavel
  r.Free
end;

var
  r:tRegistry;
begin
  //Instancia a váriavel
  r := tRegistry.Create;
  //Define a raiz
  r.RootKey := HKEY_CURRENT_USER;
  //Abre a chave do seu programa
  if R.OpenKey(´\Software\SeuPrograma´,False) then
  begin
    //Ler um valor string
    ShowMessage(r.ReadString(´ValorString´));
    //Ler um valor boolean
    if r.ReadBoolean(´ValorBoolean´) then
    begin
      ShowMessage(´Verdadeiro´);
    end
    else
    begin
      ShowMessage(´Falso´);
    end;
    //Fecha a chave
    r.CloseKey;
  end;
  //Libera a váriavel r da memória
  r.Free;
end;