编程解决注册表问题所需的函数详解

　10．RegEnumKey——列出某Key的所有SubKey

　　RegEnumKeyEx()：返回注册表键及其子键的详细信息。

Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long

　　参数说明：

　　　hKey:Key Handle

　　　dwIndex:欲读取的SubKey的顺序

　　　lpName:返回所读取的SubKey的名称

　　　cbName:传入lpName的字符串长度。

　　　返回值: =0,表示成功；≠0,表示失败。

　　示例：

Dim hKey As Long, ret As Long, Name As String, Idx As Long List1.Clear Idx = 0 Name = String(256, Chr(0)) Do ret = RegEnumKey(HKEY_CURRENT_USER, Idx, Name, Len(Name)) If ret = 0 Then List1.AddItem Left(Name, InStr(Name, Chr(0)) - 1) Idx = Idx + 1 End If Loop Until ret <> 0

　　11．RegDeleteKey——删除Key或者SubKey

RegDeleteKeyEx()：同RegDeleteKeyEx() Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

　　参数：

　　　hKey:Key Handle

　　　lpSubKey:SubKey名称或者路径，若传入""[空字符串],表示删除Key本身。

　　　返回值: =0,表示成功；≠0,表示失败。

　　示例

Dim hKey,ret As Long ret = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWAREHongqtxiaoyuer", hKey) ret = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWAREHongqt", hKey) ret = RegDeleteKey(hKey, "xiaoyuer")'删除HKEY_LOCAL_MACHINESOFTWAREHongqtxiaoyuer

　　注意：

　　如果我们利用RegDeleteKey函数删除一个含有SubKey的Key时，对于Windows98和Winnt来讲是不一样的。比如我们把上面的删除调用改成ret = RegDeleteKey(hKey, "")，则在windows98下，它会连hongqt下的xiaoyuer一起删除，而在winnt下则会报错。

　　12．RegQueryInfoKey()：返回注册表键的信息，包括类名、子键数量、最长子键名、值的数量、最长值数据、安全描述符的长度以及上一次写入的时间等。

RegQueryInfoKey(ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, ByVal lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME)

　　参数：hKey--键句柄 lpClass--类型名称，仅使用于NT。若不使用则传入Null

　　　lpcbClass--传入lpClass参数长度,返回读取的长度 lpReserved--保留参数补0

　　　lpSubKeys--返回子键的数目 lpcbMaxSubKeyLen--返回最长的子键长度

　　　lpcbMaxClassLen--返回最长的类长度 lpcValues--返回值的数目

　　　lpcbMaxValueName--返回最长的值项名称的长度

　　　lpcbMaxValueLen--返回最长的值的长度

　　　lpcbSecurityDescriptor--返回安全描述，仅适用于 NT

　　　lpftLastWriteTime--返回键最后被写入的时间，仅适用于 NT

  　　　返回值：=0 成功 ≠0 失败

　　13．RegLoadKey()：从指定的文件恢复注册表键的子键信息到注册表。

RegLoadKey(ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpFile As String)