Registro
Bom dia Pessoal,
Preciso informações que tem em uma chave do registro. Porém eu preciso ler todas as chaves que estão dentro desta. Ex.: Acesso esta chave: HKEY_LOCAL_MACHINE\Software\Microsoft\ e precido ler todas as subchaves que estão dentro dela. Como posso fazer isso?
Obrigado.
Preciso informações que tem em uma chave do registro. Porém eu preciso ler todas as chaves que estão dentro desta. Ex.: Acesso esta chave: HKEY_LOCAL_MACHINE\Software\Microsoft\ e precido ler todas as subchaves que estão dentro dela. Como posso fazer isso?
Obrigado.
Leocoden
Curtidas 0
Respostas
Fred
30/05/2003
procedure TfrmEntrada.LerReg(var Data: TDate);
var reg : TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if not (reg.OpenKey(´\Software\microsoft\´,false)) then
begin
existe := false;
exit;
end;
data := reg.ReadDate(´winsys´);//nome da chave
reg.CloseKey;
finally
reg.Free;
end;
end;
var reg : TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if not (reg.OpenKey(´\Software\microsoft\´,false)) then
begin
existe := false;
exit;
end;
data := reg.ReadDate(´winsys´);//nome da chave
reg.CloseKey;
finally
reg.Free;
end;
end;
GOSTEI 0