Поиск по реестру в цикле

[Shouldercannon]

Подскажите, пожалуйста, как в цикле найти нужное значение в реестре.
Есть ветка со множеством разделов
Компьютер\HKEY_LOCAL_MACHINE\SOFTWA RE\WOW6432Node\Microsoft\Windows\Cu rrentVersion\Uninstall
В ней нужно найти параметр DisplayName с конкретным значением.

[NetSpace]

тут, я бы сказал, надо формировать список веток, как при поиске в папке. и потом смотреть, если ещё есть ветка - в список заносим, а если есть параметр - проверяем значение.
---------
за основу взять код для поиска всех подпапок в папке.
попробуй с готовым кодом для файлов помудрить.
https://www.programmersforum.ru/show...=218592&page=2

[p51x]

Все это и делаю методы выше. Осталось только OpenKey и ReadString в цикл заделать.

[Arigato]

Перебор веток аналогичен перебору дерева каталогов. То есть напрашивается рекурсия или стек.

[Shouldercannon]

var
  SL: TStringList;
  Reg: TRegistry;
  I: Integer;
begin
  Memo1.Clear;
  try
    SL := TStringList.Create;
     try
      try
        Reg := TRegistry.Create;
        try
          Reg.RootKey := HKEY_LOCAL_MACHINE;
          if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall') then
          begin
            Reg.GetKeyNames(SL);
            for I := 0 to SL.Count - 1 do
            begin
              Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + SL[I]);
              if (Pos('Тест', Reg.ReadString('DisplayName')) > 0) then
              begin
                Memo1.Lines.Add(Reg.ReadString('DisplayVersion'));
              end;
              Reg.CloseKey;
            end;
            Reg.CloseKey;
          end;
        except
        end;
      finally
        FreeAndNil(Reg);
      end;
    except
    end;
  finally
    FreeAndNil(SL);
  end;
end;