十六进制的 Value 转换为十进制 Value = 2 ^ 32 + CDbl("&H" & Value) Else Value = CDbl("&H" & Value) End If Case REG_BINARY If ValueSize > 0 Then ReDim bValue(ValueSize - 1) As Byte '''' 存储 REG_BINARY 值的临时数组 RegQueryValueEx hKey, ValueName, 0, REG_BINARY, bValue(0), ValueSize For i = 0 To ValueSize - 1 Value = Value + String(2 - Len(Hex(bValue(i))), "0") + Hex(bValue(i)) + " " '''' 将数组转换成字符串 Next i End If End Select '''' 关闭注册表关键字... RegCloseKey hKey GetKeyValue = Trim(Value) '''' 返回函数值 End Function
''''------------------------------------------------------------------------------------------------------------- ''''- 删除已存在的注册表关键字的值... ''''- 如果指定的注册表关键字不存在, 则不做任何操作... ''''- 参数说明: KeyRoot--根类型, KeyName--子项名称, ValueName--值项名称 ''''------------------------------------------------------------------------------------------------------------- Public Function DeleteKey(KeyRoot As KeyRoot, KeyName As String, Optional ValueName As String) As Boolean Dim tmpKeyName As String '''' 注册表关键字的临时子项名称 Dim tmpValueName As String '''' 注册表关键字的临时子键名称 '''' 打开一个已存在的注册表关键字... Success = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) If Success <> ERROR_SUCCESS Then DeleteKey = False: RegCloseKey hKey: Exit Function '''' 删除已打开的注册表关键字... tmpKeyName = "" tmpValueName = KeyName If ValueName = "" Then '''' 判断ValueName是否缺省, 如缺省作相应处理 If InStrRev(KeyName, "\") > 1 Then tmpValueName = Right(KeyName, InStrRev(KeyName, "\") + 1) tmpKeyName = Left(KeyName, InStrRev(KeyName, "\") - 1) End If Success = RegOpenKeyEx(KeyRoot, tmpKeyName, 0, KEY_ALL_ACCESS, hKey) Success = RegDeleteKey(hKey, tmpValueName) Else Success = RegDeleteValue(hKey, ValueName) End If If Success <> ERROR_SUCCESS Then DeleteKey = False: RegCloseKey hKey: Exit Function '''' 关闭注册表关键字... RegCloseKey hKey DeleteKey = True '''' 返回函数值 End Function
''''------------------------------------------------------------------------------------------------------------- ''''- 获得注册表关键字的一些信息... ''''- SubKeyName() 注册表关键字的所有子项的名称(注意:最小下标为0) ''''- ValueName() 注册表关键字的所有子键的名称(注意:最小下标为0) ''''- ValueType() 注册表关键字的所有子键的类型(注意:最小下标为0) ''''- CountKey 注册表关键字的子项数量 ''''- CountValue 注册表关键字的子键数量 ''''- MaxLenKey 注册表关键字的子项名称的最大长度 ''''- MaxLenValue 注册表关键字的子键名称的最大长度 ''''------------------------------------------------------------------------------------------------------------- Public Function GetKeyInfo(KeyRoot As KeyRoot, KeyName As String, SubKeyName() As String, ValueName() As String, ValueType() As ValueType, Optional CountKey As Long, Optional CountValue As Long, Optional MaxLenKey As Long, Optional MaxLenValue As Long) As Boolean Dim f As FILETIME Dim l As Long, s As String '''' 打开一个已存在的注册表关键字... Success = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) If Success <> ERROR_SUCCESS Then GetKeyInfo = False: RegCloseKey hKey: Exit Function '''' 获得一个已打开的注册表关键字的信息... Success = RegQueryInfoKey(hKey, vbNullString, ByVal 0&, ByVal 0&, CountKey, MaxLenKey, ByVal 0&, CountValue, MaxLenValue, ByVal 0&, ByVal 0&, f) If Success <> ERROR_SUCCESS Then GetKeyInfo = False: RegCloseKey hKey: Exit Function If CountKey <> 0 Then ReDim SubKeyName(CountKey - 1) As String '''' 重新定义数组, 使用数组大小与注册表关键字的子项数量匹配 For i = 0 To CountKey - 1 SubKeyName(i) = Space(255) l = 255 RegEnumKeyEx hKey, i, ByVal SubKeyName(i), l, 0, vbNullString, ByVal 0&, f SubKeyName(i) = Left(SubKeyName(i), l) Next i '''' 下面的二重循环对字符串数组进行冒泡排序 For i = 0 To UBound(SubKeyName) For j = i + 1 To UBound(SubKeyName) If SubKeyName(i) > SubKeyName(j) Then s = SubKeyName(i) SubKeyName(i) = SubKeyName(j) SubKeyName(j) = s End If Next j Next i End If If CountValue <> 0 Then ReDim ValueName(CountValue - 1) As String '''' 重新定义数组, 使用数组大小与注册表关键字的子键数量匹配 ReDim ValueType(CountValue - 1) As Long '''' 重新定义数组, 使用数组大小与注册表关键字的子键数量匹配 For i = 0 To CountValue - 1 ValueName(i) = Space(255) l = 255 RegEnumValue hKey, i, ByVal ValueName(i), l, 0, ValueType(i), ByVal 0&, ByVal 0& ValueName(i) = Left(ValueName(i), l) Next i &nbs 上一页 [1] [2] [3] [4] 下一页 没有相关教程
|