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

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

procedure TForm1.keysChange(Sender: TObject; Node: TTreeNode);

var

reg: TRegistry;

valueItem: TListItem;

item: TTreeNode;

valueNames: TStrings;

i: Integer;

begin

item := keys.Selected;

if item <> nil then

begin

//Зачитаем содержимое выбранного раздела в ListView (values)

values.Clear;

reg := TRegistry.Create();

reg.RootKey := GetRootKey(item);

if reg.OpenKeyReadOnly(GetKeyPath(item)) then

begin

valueNames := TStringList.Create();

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

reg.GetValueNames(valueNames);

//Добавление каждого параметра в список

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

begin

valueItem := values.Items.Add();

if valueNames[i] = \'\' then

valueItem.Caption := \'<По умолчанию>\'

else

valueItem.Caption := valueNames[i];

//Получение типа и значения параметра

case reg.GetDataType(valueNames[i]) of

rdUnknown:

valueItem.SubItems.Add(\'Неизвестно\');

rdString, rdExpandString:

begin

valueItem.SubItems.Add(\'Строка\');

valueItem.SubItems.Add(reg.ReadString(valueNames[i]));

end;

rdInteger:

begin

valueItem.SubItems.Add(\'Число\');

valueItem.SubItems.Add(IntToStr(

reg.ReadInteger(valueNames[i])));

end;

rdBinary:

valueItem.SubItems.Add(\'Двоичные данные\');

end;

end;

valueNames.Free();

reg.CloseKey();

end;

reg.Free();

end;

end;