怎样强制删除注册表的项和键值?

[kieran]

2000pro的系统,REGEDIT下有几个需要删除的项和键值不允许删除,请问有没有什么办法可以强制删除的?谢谢!

[kieran]

顶一下,知道的帮帮忙

[kieran]

UP,又遇到一个需要删注册表的问题，还是不能删。有人知道吗？谢谢

[nicholasfor]

安全模式下试试？

[kieran]

忘了说，本来就是在安全模式下…

[xch870328]

那可不行的哦

[suspension]

RegistryDelete( "HKEY_LOCAL_MACHINE\Software\MyApp.Settings\Fonts", & "Title")

RegistryDelete()
功能删除Windows系统注册库中的一个键或键的某个值。
语法RegistryDelete ( key, valuename )
参数key：string类型，指定键名，将删除该键或删除该键的某个值valuename：string类型，指定要删除的值的名称。如果想删除键、键的值、以及其下的所有子键，那么将该参数指定为空字符串返回值Integer。函数执行成功时返回1，发生错误时返回-1。用法为了唯一地标识某个键，在key参数中，可以从根键开始依次指定各级父键，各键之间使用反斜杠（\）分隔。
--------------------------------------------------------------------------------

Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)

Public Function DeleteKey(lPredefinedKey As Long, sKeyName As String)
If RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hNewKey) <> 0 Then Exit Function
lRetVal = RegDeleteKey(lPredefinedKey, sKeyName)
RegCloseKey (hNewKey)
End Function

Public Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
If RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hNewKey) <> 0 Then Exit Function
lRetVal = RegDeleteValue(hNewKey, sValueName)
RegCloseKey (hNewKey)
End Function

[kieran]

谢谢楼上！这个函数需要自己编吗？编完存成什么格式放在什么地方呢？删除注册表项的时候在哪个地方执行这个函数呢？

[kieran]

谢谢楼上！这个函数需要自己编吗？编完存成什么格式放在什么地方呢？删除注册表项的时候在哪个地方执行这个函数呢？

[kieran]

…为什么我现在每次发表回复都有2个？我都只点了一次啊，晕