code_1585.txt
положим процедура перебора выглядит так:
procedure doEnumKeys(key);
var reg:Tregistry;
i:integer;
begin
reg.Open(key);
for i := 0 to reg.count-1 do
onEvent(onEnumKeys, reg.path);
end;т.е. перебирает ключи только для текущей ветки. И того с учетом схемы должен получиться такой код:
procedure doEnumKeys(key);
var reg:Tregistry;
i:integer;
begin
reg.Open(key);
for i := 0 to reg.count-1 do
doEnumKeys(key + '\' + reg.path);
end;классика... Имеет ли смысл придумывать тут что-то еще?
Поиск
Друзья
Администрация