Hi Leute !
Habe mir gedacht das Rekursiv mus doch auch mit Registry-Schlüssel gehen!
Und es klappt!
Erweiterrung: mit Werten zu den Registry-Schlüssel
Erweiterrung: 2D Array Registry-Schlüssel-Unterschlüssels-Werte-RegRead(Wert)
Spoiler anzeigen
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Dim $var, $var1, $P, $z = 1, $e = 1, $T = '\', $A[999999][2]
[/autoit] [autoit][/autoit] [autoit]_Reg_List_Rekursiv('HKU')
[/autoit] [autoit][/autoit] [autoit]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)
[/autoit]LG Kleiner