RegDeleteKey VB声明 Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long 说明 删除现有项下方一个指定的子项 返回值 Long,零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码 参数表 参数 类型及说明 hKey Long,一个已打开项的句柄,或者标准项名之一 lpSubKey String,要删除项的名字。这个项的所有子项也会删除
Dim ret As Long, hKey As Long Dim L As Long L = 0 Call RegSetValueEx(hKey, "FullPath", 0, REG_DWORD, L, 4) '显示 '取得SubKey Handle. ret = RegOpenKey(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", hKey) RegDeleteValue hKey, "FullPath"RegCloseKey hKey
Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
说明
删除现有项下方一个指定的子项
返回值
Long,零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码
参数表
参数 类型及说明
hKey Long,一个已打开项的句柄,或者标准项名之一
lpSubKey String,要删除项的名字。这个项的所有子项也会删除
Dim L As Long
L = 0
Call RegSetValueEx(hKey, "FullPath", 0, REG_DWORD, L, 4) '显示
'取得SubKey Handle.
ret = RegOpenKey(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CabinetState", hKey)
RegDeleteValue hKey, "FullPath"RegCloseKey hKey