usando o registro do windows no delphi
sou clippero migrando para o delphi e agradeço as ajudar que recebo
estou procurando saber como posso usar o registro do windows para cadatrar os parametros do sistema
antecipadamente agradeço a atenção
[]arthur
estou procurando saber como posso usar o registro do windows para cadatrar os parametros do sistema
antecipadamente agradeço a atenção
[]arthur
Arthurgc56
Curtidas 0
Respostas
Mazzi
09/05/2008
Vamos lah....
1- declare a Unit Registry na Uses.
2- dentro de um procedimento que vc quiser, por exemplo ,um click do botao.. insira:
procudure tform.Button1Click();
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;
é mais ou menos isso que vc queria?
Abraços++
1- declare a Unit Registry na Uses.
2- dentro de um procedimento que vc quiser, por exemplo ,um click do botao.. insira:
procudure tform.Button1Click();
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;
é mais ou menos isso que vc queria?
Abraços++
GOSTEI 0