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

发布时间：2006-08-23 13:43:49　来源：友佳学院网友评论 0 条

　7．RegEnumValue——列出某Key的所有名称的值

Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long

　　　参数说明：

　　　　hKey:Key Handle

　　　　dwIndex:欲读取之名称的顺序

　　　　lpValueName:返回所读取的名称

　　　　lpcbValueName:传入lpValueName参数的长度，返回所读取的名称的长度，注意这一长度不含chr(0)

　　　　lpReserved:保留参数，实际使用时传入ByVal 0即可

　　　　lpType:返回所读取的数据类型

　　　　lpData:返回所读取的数据

　　　　lpcbData:传入lpData，返回所读取的数据长度

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

　　示例：

ret=0
myindex=0
while ret=0
ret=RegEnumValue(hkey,myindex,Name,ByVal 0, typeData, ByVal vbNullString, lenData)
myindex=myindex+1
wend

　　8．RegSetValueEx——设置某Key特定名称的值(Value)

Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

　　参数：

　　　hKey:Key Handle

　　　lpValueName:Value名称

　　　Reserved:保留参数，具体使用时置为0即可

　　　dwType:数据类型

　　　lpData:所设置的数据，注意这一参数被定义成lpData As Any，所以要传入字符串数据时别忘了在参数前加保留字ByVal

　　　cbData:数据的长度。注意：如果写入的数据属于REG_SZ、REG_EXPAND_SZ、REG_MULTI_SZ类型时，则这个长度应该包含chr(0)字符。

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

　　示例:

Dim hKey As Long
Dim L As Long
L = 99999
RegCreateKey HKEY_CURRENT_USER, "SoftwareSetValue", hKey
RegSetValueEx hKey, "LongData", 0, REG_DWORD, L, 4

　　9．RegDeleteValue——删除某Key的某一名称

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

　　参数：

　　　hKey:Key Handle

　　　lpValueName: Value名称，如果想删除默认值的话，传入""[空字符串]即可。

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

　　示例：

　　　

'我们假设在HKEY_CURRENT_USERSoftwareSetValue有：
'预设值——VB操作注册表
'str1——我爱我的祖国
'我们要删除这两个Value
ret = RegOpenKey(HKEY_CURRENT_USER, "SoftwareSetValue", hKey)
If ret = 0 Then
RegDeleteValue hKey, "Str1"
MsgBox "已删除HKCUSoftwareSetValueSubKeyStr1Value"
RegDeleteValue hKey, ""
MsgBox "已删除HKCUSoftwareSetValueSubKey‘预设值’"
End If