• Home
 · 
• Registry
 · 
• To Read BINARY values from the registry

To Read BINARY values from the registry

To Read BINARY values from the registry

API Declarations


Dim iByte As Long
Dim vR as Variant




Rate To Read BINARY values from the registry

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

        .ClassKey = HKEY_CURRENT_USER
        .SectionKey = "Control Panel\Appearance"
        .ValueKey = "CustomColors"
        vR = .Value

        If .ValueType = REG_BINARY Then
        ' Read through the byte array and output it as a series of hex values:
        For iByte = LBound(vR) To UBound(vR)
            sOut = sOut & "&H"
            If (iByte<&H10) Then
                sOut = sOut & "0"
            End If
            sOut = sOut & Hex$(vR(iByte)) & " " 
            Next iByte
        Else
            sOut = vR
        End If

        Debug.Print sOut
    End With