про реестр

[xakkkkker]

вот я открыл программно какой нибудь каталог в реестре а как узнать сколько у него подкаталогов?

[goblinyara]

хммм... а чуть-чуть подумать нельзя? в теме http://programmersforum.ru/showthread.php?t=9809 есть код, при небольшой трансформации он будет делать именно то,что вам надо...

uses
   Registry;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   indent: Integer;

      procedure EnumAllKeys(hkey: THandle; subkey: string);//добавился ещё один параметр
   var
     l: TStringList;
     n: Integer;
   begin
     Inc(indent, 2);
     with TRegistry.Create do
       try
         RootKey := hkey;
         OpenKey(SubKey, False);//Пустая строка с именем директории сменилась на ту, поддиректории которой вам нужны
         l := TStringList.Create;
         try
           GetKeynames(l);
           CloseKey;
           for n := 0 to l.Count - 1 do
             memo1.Lines.Add(StringOfChar(' ', indent) + l[n]);
             // Отсюда удалился кусок кода
         finally
           l.Free
         end;
       finally
         Free;
       end;
     Dec(indent, 2);
   end;

 begin
   Memo1.Clear;
   Memo1.Lines.Add('Keys under HKEY_LOCAL_MACHINE');
   indent := 0;
   Memo1.Lines.BeginUpdate;
   try
     EnumAllKEys(HKEY_LOCAL_MACHINE,'Software');
   finally
     Memo1.Lines.EndUpdate;
   end;
 end;

конечно, код не оптимален, и выводит только подкаталоги первого уровня, но на мысль натолкнуть должен...

[xakkkkker]

goblinyara Спасибо мне только первого уровня и нужны были

[goblinyara]

xakkkkker, рад,что помог