_RegReadToArray

[nacerbaaziz]

good morning everybody.
today i liked to share an small example with you
which it an function to read the registry values as an array
the result array is 2d array witch
$a_array[n][0] = value name
$a_array[n][1] = value Data
$a_array[0][0] = values count

here's the function

expandcollapse popup

#include <Array.au3>
#include <WinAPIReg.au3>
#include <APIRegConstants.au3>
    Local $a_array = _RegReadToArray("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run")
If @error Then
    MsgBox(16, "error", @error)
    Exit
EndIf
_ArrayDisplay($a_array)
Func _RegReadToArray($s_RegKey)
    Local $a_KeySplitInfo = StringSplit($s_RegKey, "\\", 2)
    If UBound($a_KeySplitInfo) <= 1 Then
        $a_KeySplitInfo = StringSplit($s_RegKey, "\", 2)
        If UBound($a_KeySplitInfo) <= 1 Then Return (1, 1, 0)
    EndIf
    Local $H_KeyInfo = "", $s_RegKeyInfo = ""
    Switch $a_KeySplitInfo[0]
        Case "hklm", "HKEY_LOCAL_MACHINE", "hklm64", "HKEY_LOCAL_MACHINE64"
            $H_KeyInfo = $HKEY_LOCAL_MACHINE
        Case "hkCu", "HKEY_CURRENT_USER", "hkCU64", "HKEY_CURRENT_USER64"
            $H_KeyInfo = $HKEY_CURRENT_USER
        Case "hkCr", "HKEY_CLASSES_ROOT", "HKCR64", "HKEY_CLASSES_ROOT64"
            $H_KeyInfo = $HKEY_CLASSES_ROOT
        Case "HKU", "HKEY_USERS", "HKU64", "HKEY_USERS64"
            $H_KeyInfo = $HKEY_USERS
        Case Else
            Return SetError(2, 2, 0)
    EndSwitch
    _ArrayDelete($a_KeySplitInfo, 0)
    $s_RegKeyInfo = _ArrayToString($a_KeySplitInfo, "\")
    Local $H_KeyInfoOpen = _WinAPI_RegOpenKey($H_KeyInfo, $s_RegKeyInfo, $KEY_READ)
    Local $A_KeyInfo = _WinAPI_RegQueryInfoKey($H_KeyInfoOpen)
    If @error Then Return SetError(1, 1, 0)
    _WinAPI_RegCloseKey($H_KeyInfoOpen)
    Local $A_RegVal[$A_KeyInfo[2] + 1][2]
    Local $iV = 1, $s_RegRead = ""
    While 1
        $s_RegVal = RegEnumVal($s_RegKey, $iV)
        If @error <> 0 Then ExitLoop
        $s_RegRead = RegRead($s_RegKey, $s_RegVal)
        If Not (@error) Then
            $A_RegVal[$iV][0] = $s_RegVal
            $A_RegVal[$iV][1] = $s_RegRead
        EndIf
        $iV += 1
    WEnd
    $A_RegVal[0][0] = UBound($A_RegVal) - 1
    If $A_RegVal[0][0] >= 1 Then
        Return $A_RegVal
    Else
        Return SetError(3, 3, 0)
    EndIf
EndFunc   ;==>_RegReadToArray

i hope you benefit from it

with my greetings

Edited June 4, 2019 by nacerbaaziz
updated function and changed some codes and tidied the function

[coffeeturtle]

@Polymath

Thank you! This is nice!

I guess you're using msgbox for demonstrative purposes. Easier to see output though when maybe just add #include <Array.au3> at the top

and instead of the msgBox to display each value one at a time, just use _ArrayDisplay($a_array) (outside of the loop)

(you probably already knew that) Thanks again though!

Edited June 4, 2019 by coffeeturtle

[water]

My 2 cents worth

• Do not unse Local in a Loop
• Do not use ReDim for every entry - Slooows down your script. Create/enlarge the Array in steps of 100 and set the real size when all registry keys have been processed.

[nacerbaaziz]

7 hours ago, coffeeturtle said:

@Polymath

Thank you! This is nice!

I guess you're using msgbox for demonstrative purposes. Easier to see output though when maybe just add #include <Array.au3> at the top

and instead of the msgBox to display each value one at a time, just use _ArrayDisplay($a_array) (outside of the loop)

(you probably already knew that) Thanks again though!

 

thank you sir to your interesting

i added what you told me

[nacerbaaziz]

6 hours ago, water said:

My 2 cents worth

• Do not unse Local in a Loop
• Do not use ReDim for every entry - Slooows down your script. Create/enlarge the Array in steps of 100 and set the real size when all registry keys have been processed.

good morning sir and thank you to your interesting, i

Completelyy

changed the function

i hope that you like it