#include <Array.au3>

Dim $var, $var1, $P, $z = 1, $e = 1, $T = '\', $A[999999][2]

_Reg_List_Rekursiv('HKU')

Func _Reg_List_Rekursiv($P)
	_Show_Reg_Rekursiv($P)
	ReDim $A[$z][2]
	$A[0][0] = $z
	Return ($A)
EndFunc   ;==>_FilesListRekursiv


Func _Show_Reg_Rekursiv($RegPaht)
	For $i = 1 To 999999
		$var = RegEnumKey($RegPaht, $i)
		If @error <> 0 Then ExitLoop
		$A[$z][0] = ($RegPaht & $T & $var)
		$e = 1
		Do
			$var1 = RegEnumVal($RegPaht & $T & $var, $e)
			$z += 1
			If @error <> 0 Then ExitLoop
			$A[$z][0] = ($RegPaht & $T & $var & $T & $var1)
			$A[$z][1] = RegRead($RegPaht & $T & $var, $var1)
			$e += 1
		Until 0
		_Show_Reg_Rekursiv($RegPaht & $T & $var)
	Next
EndFunc   ;==>_Reg_List_Rekursiv

_ArrayDisplay($A)