GetKeyNames

← →
Cure (2004-01-07 00:48) [0]

Почему не работает код:

var TS: TStrings;
Reg: TRegistry;
begin
TS := TStringLIST.Create;
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey("",false);
Reg.GetKeyNames(TS);
end;

Мне нужно получить список всех подразделов, но процедура Reg.GetKeyNames ничего не дает. В чем моя ошибка?

← →
div (2004-01-08 18:34) [1]

Очень странно но у меня все работает )))
Попробуй объявить TS: TStringList )))
и не забудь:
... ... ...
TS.Free;
Reg.Free;
end;

← →
app © (2004-01-08 18:50) [2]

Диагноз верный, надо использовать неследника от TStrings в котором реализованы абстрактные методы, сам TStrings не имеет средств хранения данных.

← →
VMcL © (2004-01-09 18:58) [3]

>>app © (08.01.04 18:50) [2]

var TS: TStrings; Reg: TRegistry; begin TS := TStringLIST.Create; Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey("",false); Reg.GetKeyNames(TS); end;

>>Cure (07.01.04 00:48)

Ты уверен, что OpenKey() вернул True?

>>Anatoly Podgoretsky © (09.01.04 19:31) [4]
>>Но головной ключ имеет имя "/"

Гы. Это Вынь - тут "\", а в Линухе/Юнихе, если был бы реестр, то, наверное, было бы "/" :)))

В данном случае не важно. TRegistry использует относительный путь, если в начале строки не указан символ "\". Но поскольку еще ни одна ветка не открыта, то сам корневой ключ и открывается.

GetKeyNames Найти похожие ветки