Описание функции

CountSubKeys

Возвращает количество подразделов в разделе

CountSubKeys(topKey, KeyName.s[, WOW64 = #False[, *Ret.RegValue = 0]])

Параметры

topKey Корневой ключ реестра, такие как #HKEY_LOCAL_MACHINE, #HKEY_CURRENT_USER, #HKEY_CLASSES_ROOT ...
KeyName Раздел реестра (без корневого ключа)
WOW64 [необязательный] Подсистема в x64
    #False - (по умолчанию)
    #True - используется путь 'Wow6432Node' для ключа
*Ret.RegValue [необязательный] Структура для бинарного типа данных
    0 - если не используется

Возвращаемое значение

Успех:Возвращает количество подразделов
Ошибка:Возвращает 0

Пример

; ts-soft
; https://www.purebasic.fr/english/viewtopic.php?f=12&t=56204
XIncludeFile "Registry.pbi"

Define count, i, Key$

Key$ = "Folder"

count = Registry::CountSubKeys(#HKEY_CLASSES_ROOT, Key$)
For i = 0 To count - 1
    Debug Registry::ListSubKey(#HKEY_CLASSES_ROOT, Key$, i)
Next

Debug #CRLF$

UseModule Registry

Key$ = "*\shell"

count = CountSubKeys(#HKEY_CLASSES_ROOT, Key$)
For i = 0 To count - 1
    Debug ListSubKey(#HKEY_CLASSES_ROOT, Key$, i)
Next