Trabalhando com o Registro do Windows

ola..
#
PARA GRAVAR
procedure frmMain.GravarRegistro;
const
Raiz : String = ´Software\Programa´;
var
Registro : TRegistry;
begin
// Chama o construtor do objeto
Registro := TRegistry.Create;
{ Abre a chave (se o 2°. Parâmetro for True, ele cria a chave caso ela ainda não exista. }
Registro.OpenKey (Raiz, True);
// Grava as informações do form
Registro.WriteInteger (´Largura´, Width);
Registro.WriteInteger (´Altura´, Height);
Registro.WriteInteger (´Esquerda´, Left);
Registro.WriteInteger (´Topo´, Top);
// Grava as informações das caixas Abrir e Salvar.
Registro.WriteString (´Abrir Inicial´, OpenDialog1.InitialDir);
Registro.WriteString(´Salvar Inicial´, SaveDialog1.InitialDir);
// Fecha a chave e o objeto
Registro.CloseKey;
Registro.Free;
end




PARA LER
procedure frmMain.LerRegistro;
const
Raiz : String = ‘Software\Programa´;
var
Registro : TRegistry;
begin
// Chama o construtor do objeto
Registro := TRegistry.Create;
with Registro do
begin
// Somente abre se a chave existir
if OpenKey (Raiz, False) then
// Envia as informações ao form, vendo se os valores existem, primeiramente...
if ValueExists (´Largura´) then
Width := ReadInteger (´Largura´);
if ValueExists (´Altura´) then
Height := ReadInteger (´Altura´);
if ValueExists (´Esquerda´) then
Left := ReadInteger (´Esquerda´);
if ValueExists (´Topo´) then
Top := ReadInteger (´Topo´);
// Envia as informações para as caixas Abrir e Salvar.
OpenDialog1.InitialDir := ReadString (´Abrir Inicial´);
SaveDialog1.InitialDir := ReadString (´Salvar Inicial´);
// Fecha a chave e o objeto
Registro.CloseKey;
Registro.Free;
end;

Não esqueça de adicionar a Unit Registry na sessão uses...