Gravar registros no Regedit - Delphi

O Regedit é um "banco de dados" onde são armazenadas configurações de programas instalados, diretórios,  arquivos e configurações do Windows.

Neste post demonstrarei como gravar um registro simples no Regedit através do Delphi.

A primeira coisa a se fazer, é adicionar a uses Registry.

Os seguintes diretórios, são diretórios do Regedit e precisamos informar em qual delas nosso registro será gravado.

Para podermos manipular o registro, vamos ter que declarar uma variável do tipo TRegistry.

var

  registro : TRegistry;

Ao iniciar o nosso código, devemos criar uma nova instância do registro.

begin

  registro := TRegistry.Create;

O seguinte código efetua a gravação no registro:

registro.RootKey := HKEY_CURRENT_USER;

registro.OpenKey('MeusRegistros',True);

registro.WriteString('MeuPrimeiroRegistro','Valor do Registro');

A primeira linha informa o diretório de registros.

A segunda linha, faz a criação de um novo diretório dentro da RootKey.

Os parâmetros do comando WriteString, fazem a criação do registro e o valor do registro respectivamente.

Da mesma forma que abrimos a chave de registro com OpenKey(), devemos fecha-la.
O código inteiro fica da seguinte maneira:

var

  registro : TRegistry;

begin

  registro := TRegistry.Create;

  registro.RootKey := HKEY_CURRENT_USER;

  registro.OpenKey('MeusRegistros',True);

  registro.WriteString('MeuPrimeiroRegistro','Valor do Registro');
  registro.CloseKey;
end;


Abraços e até a próxima.