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

CountSubValues

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

CountSubValues(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

Пример

EnableExplicit

XIncludeFile "Registry.pbi"

Define count, i, Key$

Key$ = "Software\Microsoft\Windows NT\CurrentVersion\Devices"

count = Registry::CountSubValues(#HKEY_CURRENT_USER, Key$)
For i = 0 To count - 1
    Debug Registry::ListSubValue(#HKEY_CURRENT_USER, Key$, i)
Next

Debug #CRLF$

UseModule Registry

Key$ = "SYSTEM\ControlSet001\Control\Session Manager\Environment"

count = CountSubValues(#HKEY_LOCAL_MACHINE, Key$)
For i = 0 To count - 1
    Debug ListSubValue(#HKEY_LOCAL_MACHINE, Key$, i)
Next