_Reg_List_Rekursiv

    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
    [autoit]

    #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

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    _ArrayDisplay($A)

    [/autoit]

    LG Kleiner