escrever no registro

Inclua na seção uses: Registry
Coloque no form dois edits e dois botões.
No evento OnClick do Button1 escreva o código abaixo:
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
{ Define a chave-raiz do registro }
Reg.RootKey := HKEY_CURRENT_USER;
{ Abre a chave (path). Se não existir, cria e abre. }
Reg.OpenKey(´MeuPrograma\Configuração´, true);
{ Escreve um inteiro }
Reg.WriteInteger(´Numero´, StrToInt(Edit1.Text));
{ Escreve uma string }
Reg.WriteString(´Nome´, Edit2.Text);
finally
Reg.Free;
end;
end;
No evento OnClick do Button2, escreva:
procedure TForm1.Button2Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.KeyExists(´MeuPrograma\Configuração´) then
begin
Reg.OpenKey(´MeuPrograma\Configuração´, false);
if Reg.ValueExists(´Numero´) then
Edit1.Text := IntToStr(Reg.ReadInteger(´Numero´))
else
ShowMessage(´Não existe valor com o nome ´Numero´´);
if Reg.ValueExists(´Nome´) then
Edit2.Text := Reg.ReadString(´Nome´)
else
ShowMessage(´Não existe valor com o nome ´Nome´´);
end else
ShowMessage(´Não existe a chave no registro´);
finally
Reg.Free;
end;
end;
Observações: User o aplicativo RegEdit.exe do windows para ver o registro. Cuidado
para não alterar as configurações do Windows!