Delphi. Трюки и эффекты

Листинг 7.25.

Составление списка дочерних разделов

procedure TForm1.keysExpanding(Sender: TObject; Node: TTreeNode;

var AllowExpansion: Boolean);

var

reg: TRegistry;

subkeys: TStrings;

i: Integer;

begin

if Integer(Node.getFirstChild.Data) <> -1 then

//Список подразделов был зачитан ранее

Exit;

Node.DeleteChildren; //Удаление фиктивного элемента дерева

reg := TRegistry.Create;

//Загрузка списка подразделов выбранного раздела

reg.RootKey := GetRootKey(Node);

if reg.OpenKey(GetKeyPath(Node), False) then

begin

//Получение списка подразделов

subkeys := TStringList.Create;

reg.GetKeyNames(subkeys);

for i := 0 to subkeys.Count – 1 do

begin

//Добавление элемента для дочернего раздела (не забываем

//проверять подразделы у каждого дочернего раздела)

CheckSubKeys(keys.Items.AddChild(Node, subkeys[i]));

end;

subkeys.Free;

reg.CloseKey;

end;

reg.Free;

end;

В листинге 7.25 используются две дополнительные функции: для определения полного пути раздела, соответствующего элементу дерева (без имени ко рневого раздела), и для получения дескриптора корневого раздела (хранится в пoлeData корневого элемента каждой ветви дерева).

Путь раздела определить несложно: просто поднимаемся к корню соответствующей верви дерева, собирая по ходу имена элементов дерева (листинг 7.26).

...

Листинг 7.26.

Определение пути раздела в дереве

function GetKeyPath(item: TTreeNode): String;

var

temp: TTreeNode;

path: String;

begin

temp := item;

while temp.Parent <> nil do

begin

path := temp.Text + \'\\' + path;

temp := temp.Parent;

end;

GetKeyPath := path;

end;

Аналогичным образом, даже проще, определяется дескриптор корневого раздела определенной ветви реестра: для этого нужно просто добраться до корня ветви дерева и прочитать значение поля Data корневого элемента (листинг 7.27).

...

Листинг 7.27.

Определение дескриптора корневого раздела ветви

function GetRootKey(item: TTreeNode): HKEY;

var

temp: TTreeNode;

begin

temp := item;

while temp.Parent <> nil do

temp := temp.Parent;

GetRootKey := HKEY(temp.Data);

end;

При выделении элемента дерева происходит отображение параметров соответствующего раздела в списке в правой части формы. Как заполнять список, представлено в листинге 7.28.

...