| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Получить все значения ключа реестра [D6, Win95/98]

dim- ©   (2002-09-07 16:20:00) 

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

---

Тупой   (2002-09-07 22:17:00) [1]

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 ;

---

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

HELP wait for you :)

---

Anatoly Podgoretsky   (2002-09-07 17:02:00) [3]

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

---

Наверх