Buscar por:

Registro do windows

Código

Uses

Registry, Windows;

procedure TForm1.Button1Click(Sender: TObject);

var

Registry: TRegistry;

begin

{ Cria o objeto TRegistry }

Registry := TRegistry.Create;

{ seta a chave raiz; ex. hkey_local_machine }

Registry.RootKey := hkey_local_machine;

{ Abre e cria a chave }

Registry.OpenKey('softwareExemploMeuRegistro', true);

{ Escreve o valor }

Registry.WriteString('NomeDoMeuRegistro', 'Valor Do MeuRegistro');

{ Edit recebe o valor anterior }

Edit1.text := Registry.ReadString('NomeDoMeuRegistro');

{ Fecha e libera a chave}

Registry.CloseKey;

Registry.Free;

end;