高难的注册表删除问题？注册表里所有包含“riben”的项全部删除？求助

Question

如题：
  1.所有的键和他的值都删除，只要包含riben这个字符串。
  例如：HKEY_CLASSES_ROOT
          |
          ＋--ribengou       《－－－就删除这个。 2.采用vb。

Answer 1

呵呵，这个偶是支持的
你需要依次枚举键值和子键
参考 API 函数：
RegEnumKeyEx
RegOpenKeyEx
RegCloseKey

Answer 2

RegDeleteKey
RegDeleteValue
RegQueryValueEx

Answer 3

Dim phkRet As Long
Dim Index As Long, Name As String, lName As Long, lReserved As Long, Class As String, lClass As Long, LWT As FILETIME
Dim lRet As Long
Dim Keys As String, TempKeys As String
Static Num As Long
lReserved = 0&
Index = 0
hKey = HKEY_CLASSES_ROOT
lRet = RegOpenKey(hKey, SubKey, phkRet)
If lRet = ERROR_SUCCESS Then
 Do
   DoEvents
   Name = String(255, Chr(0))
   lName = Len(Name)
   lRet = RegEnumKeyEx(phkRet, Index, Name, lName, lReserved, Class, lClass, LWT)
   If lRet = ERROR_SUCCESS Then
     Keys = "HKEY_CLASSES_ROOT\" & Name
  '  List1.AddItem Keys
    
    Label1.Caption = Keys
        If InStr(1, Name, "esri") > 0 Then
        'MsgBox Name
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Dim LDelRet As Long
            Dim hDelkRet As Long
            LDelRet = RegOpenKey(hKey, Name, hDelkRet)
            List2.AddItem Name
            RegDeleteKey hDelkRet, Name
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Exit Do
        End If
    Num = Num + 1
    Label2.Caption = Num
   Else
    Exit Do
   End If
   Index = Index + 1
   Loop While lRet = ERROR_SUCCESS
  End If
  Call RegCloseKey(phkRet)我用上面这段代码怎么删除不掉呢？？？

Answer 4

删除这个键之前应该先RegCloseKey吧，LDelRet句柄没有释放。

Answer 5

上面写错了，hDelkRet没有释放。

Answer 6

在哪释放呀？？删除之前，还是在删除之后？？  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Dim LDelRet As Long
            Dim hDelkRet As Long
            LDelRet = RegOpenKey(hKey, Name, hDelkRet)
            List2.AddItem Name
            RegDeleteKey hDelkRet, Name
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''