Type a page name and press Enter. You'll jump to the page if it exists, or you can create it if it doesn't.
To create a page in a module other than advapi32, prefix the name with the module name and a period.
Declare Auto Function RegEnumValue Lib "Advapi32" ( _
ByVal hKey As IntPtr, _
ByVal dwIndex As Integer, _
ByVal lpValueName As StringBuilder, _
ByRef lpcValueName As Integer, _
ByVal lpReserved As IntPtr, _
ByVal lpType As IntPtr, _
ByVal lpData As IntPtr, _
ByVal lpcbData As IntPtr _
) As Integer
Public Function GetValueNames() As String()
Dim i, ret, NameSize As Integer
Dim sc As New StringCollection
Dim sb As New StringBuilder(MAX_REG_KEYNAME_SIZE + 1)
Dim ans(-1) As String
' quick sanity check
If hKey.Equals(IntPtr.Zero) Then
Throw New ApplicationException("Cannot access a closed registry key")
End If
Do
NameSize = MAX_REG_KEYNAME_SIZE + 1
ret = RegEnumValue(hKey, i, sb, NameSize, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero)
If ret <> 0 Then
Exit Do
End If
sc.Add(sb.ToString)
i += 1
Loop
If sc.Count > 0 Then
ReDim ans(sc.Count - 1)
sc.CopyTo(ans, 0)
End If
Return ans
End Function
The RegEnumValue function enumerates the values for the specified open registry key. The function copies one indexed value name and data block for the key each time it is called.
6/12/2007 6:37:57 PM - -131.107.0.89
Please edit this page!
Do you have...
helpful tips or sample code to share for using this API in managed code?
corrections to the existing content?
variations of the signature you want to share?
additional languages you want to include?
Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).