Получить все значения ключа реестра

← →
dim- (2002-09-07 16:20) [0]

Как получить все значения ключа реестра, например:
"HKEY_CURRENT_USER\SOFTWARE\PROJECT1\TForm1"
x1=xxx
x2=xxx
x3=xxx
...

← →
Anatoly Podgoretsky (2002-09-07 17:02) [1]

В справочной системе по TRegistry смотред?

← →
oss (2002-09-07 21:01) [2]

HELP wait for you :)

← →
Тупой (2002-09-07 22:17) [3]

var
Reg: TRegistry ;
SomeValues: TStringList ;
iCount, i: Integer ;
begin
Reg := TRegistry.Create ;
SomeValues := TStringList.Create ;
try
Reg.RootKey := HKEY_CURRENT_USER ;
if Reg.OpenKey("Software\1C\1Cv7\7.7\Titles", False) then
begin
Reg.GetValueNames(SomeValues) ;
iCount := SomeValues.Count ;
if iCount >0 then
for i := 0 to iCount -1 do begin
Имя := Reg.ReadString(SomeValues.Strings[i]);
значение := SomeValues.Strings[i];
end;
end ;
finally
Reg.Free ;
SomeValues.Free ;
end ;

Получить все значения ключа реестра Найти похожие ветки