[Cinot]

R.i.m.s.k.y., у меня ещё небольшой вопрос по поводу поиска по реестру.
Я ищу установленные AutoCAD'ы на компьютере. Все они в реестре имеют вид по такому шаблону:
HKEY_LOCAL_Machine\SOFTWARE\Autodesk\AutoCAD\16.2\409:5005 (а дальше - ключи)
HKEY_LOCAL_Machine\SOFTWARE\Autodesk\AutoCAD\17.1\519:6007 (а дальше - ключи)
Нужно организовать перебор по этим папкам (внутри - перебор по соответствию ключа "ProductName" членам "рукотворного" списка). Я писал, писал, и запутался:

Код:

if RegGetSubkeyNames(HKEY_LOCAL_Machine, 'SOFTWARE\Autodesk\AutoCAD\', Names) then
  begin
    for i:=0 to GetArrayLength(Names)-1 do
       if RegGetSubkeyNames(Names[i], Names2) then
          begin
             for j:=0 to GetArrayLength(Names2)-1 do
             if RegGetSubkeyNames(Names2[j], Names3) then
                begin
                for k:=0 to GetArrayLength(Names3)-1 do
                   if (Names3[k] = 'ProductName') and ...