Валерий Борисок - Delphi. Трюки и эффекты

Листинг 7.22.

Удаление из реестра сведений о типе файла

procedure UnregisterAppDocuments();

var

reg: TRegistry;

begin

reg := TRegistry.Create();

reg.RootKey := HKEY_CLASSES_ROOT;

//Удаление из реестра информации о типе файла

reg.DeleteKey(\'.mydoc\');

reg.DeleteKey(\'TricksDelphi.DocumentSample\');

reg.Free();

end;

Листинг 7.23.

Первоначальная инициализация дерева разделов реестра

procedure TForm1.FormCreate(Sender: TObject);

var

item: TTreeNode;

begin

//Формирование списка корневых разделов реестра

item := keys.Items.AddChild(nil, \'HKEY_CLASSES_ROOT\');

item.Data := Pointer(HKEY_CLASSES_ROOT);

CheckSubKeys(item);

item := keys.Items.AddChild(nil, \'HKEY_CURRENT_USER\');

item.Data := Pointer(HKEY_CURRENT_USER);

CheckSubKeys(item);

item := keys.Items.AddChild(nil, \'HKEY_LOCAL_MACHINE\');

item.Data := Pointer(HKEY_LOCAL_MACHINE);

CheckSubKeys(item);

item := keys.Items.AddChild(nil, \'HKEY_USERS\');

item.Data := Pointer(HKEY_USERS);

CheckSubKeys(item);

item := keys.Items.AddChild(nil, \'HKEY_CURRENT_CONFIG\');

item.Data := Pointer(HKEY_CURRENT_CONFIG);

CheckSubKeys(item);

end;

Листинг 7.24.

Оформление элемента дерева в зависимости от наличия вложенных разделов

procedure TForm1.CheckSubKeys(item: TTreeNode);

var

reg: TRegistry;

begin

reg := TRegistry.Create();

//Проверка, есть ли в разделе реестра вложенные подразделы

reg.RootKey := GetRootKey(item);

if reg.OpenKeyReadOnly(GetKeyPath(item)) then

begin

if reg.HasSubKeys() then

begin

//Добавляем фиктивный элемент (чтобы показывался "+" для

//разворачивания раздела). Одновременно помечаем

//фиктивный элемент

keys.Items.AddChild(item, \'\').Data := Pointer(-1);

end;

reg.CloseKey();

end;

reg.Free();

end;

Листинг 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();