@msdn=http://search.microsoft.com/search/results.aspx?qu=$$$ @pinvoke=http://pinvoke.net/$$$.htm Summary: Returns the list of sub key names from a given registry key. Analogous to getting a list of subdirectories !!!!C# Signature: [DllImport("advapi32.dll", EntryPoint = "RegEnumKeyEx")] extern private static int RegEnumKeyEx(UIntPtr hkey, uint index, StringBuilder lpName, ref uint lpcbName, IntPtr reserved, IntPtr lpClass, IntPtr lpcbClass, out long lpftLastWriteTime); !!!!VB Signature: Declare Auto Function RegEnumKeyEx Lib "Advapi32" ( _ ByVal hKey As IntPtr, _ ByVal dwIndex As Integer, _ ByVal lpName As StringBuilder, _ ByRef lpcName As Integer, _ ByVal lpReserved As IntPtr, _ ByVal lpClass As IntPtr, _ ByVal lpcClass As IntPtr, _ ByVal lpftLastWriteTime As IntPtr _ ) As Integer !!!!User-Defined Types: None. !!!!Alternative Managed API: Microsoft.Win32.RegistryKey.GetSubKeyNames() !!!!Notes: LONG RegEnumKeyEx( HKEY hKey, DWORD dwIndex, LPTSTR lpName, LPDWORD lpcName, LPDWORD lpReserved, LPTSTR lpClass, LPDWORD lpcClass, PFILETIME lpftLastWriteTime ); !!!!Tips & Tricks: Please add some! !!!!Sample Code: Public Function GetSubKeyNames() 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 = RegEnumKeyEx(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 Documentation: RegEnumKeyEx@msdn on MSDN
Edit advapi32.regenumk...
You do not have permission to change this page. If you feel this is in error, please send feedback with the contact link on the main page.