Получить список подразделов реестра

#include <APIRegConstants.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIDiag.au3>
#include <WinAPIReg.au3>
;#RequireAdmin
Local $hKey = _WinAPI_RegOpenKey($HKEY_CLASSES_ROOT, 'DesktopBackground\Shell', $KEY_READ)
If @error Then
	MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), @extended, _WinAPI_GetErrorMessage(@extended))
	Exit
EndIf
Local $iCount = _WinAPI_RegQueryInfoKey($hKey)
Local $aKey[$iCount[2]]
For $i = 0 To UBound($aKey) - 1
	$aKey[$i] = _WinAPI_RegEnumKey($hKey, $i)
Next

_WinAPI_RegCloseKey($hKey)

_ArrayDisplay($aKey, '_WinAPI_RegEnumKey')

$key = "HKEY_CURRENT_CONFIG"
KeyList($key)
Func KeyList($key)
    ConsoleWrite($key&@CRLF)
    $i = 1
    While 1
        $var = RegEnumKey($key, $i)
        If @error <> 0 then ExitLoop       
        $i = $i + 1        
        KeyList($key&"\"&$var)             
    WEnd   
EndFunc

Local $aKey[$iCount[0]]