| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Реестр
denimas © (2002-08-21 09:55:00)Никак неполучается...
Необходимо определить подключи (если я правильно их называю) у ключа HKEY_USER.
кусок кода:
reg.rootkey:=HKEY_USERS;
if not(reg.HasSubKeys) then messagedlg("Ни хрена неработает",mterror,[mbok],0);
Проблема в том что на каждой машине в HKEY_USERS подключи разные, это такие длинные цифирки, а мне в этих подключах надо чистить секции. А как к ним добраться?.GetKeyNamesничего не возвращает. У кого какие мысли по этому поводу?
denimas (2002-08-21 13:11:00) [1]ВСЕМ СПАСИБО.
Игорь Шевченко (2002-08-21 10:15:00) [2]procedure TForm1.FormCreate(Sender: TObject);
begin
with TRegistry.Create(KEY_READ) do
try
RootKey := HKEY_USERS;
OpenKey("", false);
// ^^^^^^^^^^^^^^^^^^^
if HasSubKeys then
GetKeyNames(ListBox1.Items)
else
ShowMessage("No subkeys");
finally
Free();
end;
end;
Tokha (2002-08-21 10:08:00) [3]>кусок кода:
>reg.rootkey:=HKEY_USERS;
После этого надо вставить следующее:
reg.OpenKey("", false);
Тогда будет работать GetKeyNames.
| |
