请问怎样得到注册表的键值？

2003-05-19 08:24:41 163 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

diudiu2002 墨衍会员 · AI 创作全网分发关注 + 加入社区

用Docker部署ERPNext V15：从架构原理到生产落地的完整指南容器化部署正在重塑企业级应用的分发与运维方式，ERPNext作为开源ERP中的佼佼者，其基于Frappe框架的模块化设计天然适合用Docker进行编排。理解容器、镜像与编排的关系，是掌握ERP系统部署的基础。Frappe框架负责数据模型与API，ERPNext则承载销售、采购、财务等业务逻辑，两者通过Docker容器解耦为可独立扩展的组件。这种架构带来的价值在于：环境一致性、快速迁移与弹性伸缩，使中小团队也能以较低成本自托管业务系统。无论是替代传统SaaS，还是构建内部管理平台，掌握容器化部署已成为运维与开阅读详情

我用RegQueryValueEx这个API函数能够得到注册表字符型的键值，请问怎样得到十六进制键值？

...全文

保姆级教程：在LKD3588开发板上为RK3588添加SC2210摄像头驱动（含完整DTS配置）本文提供了一份详细的教程，指导如何在LKD3588开发板上为RK3588处理器添加SC2210摄像头驱动，包括完整的DTS配置和内核编译步骤。教程涵盖了环境准备、驱动文件添加、DTS配置详解、内核编译与烧录、驱动测试以及常见问题排查，帮助开发者快速实现SC2210传感器在RK3588平台上的集成与优化。阅读详情

diudiu2002

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

diudiu2002 2003-05-20

打赏
举报

to anosoft(全方):好象getSetting只能读saveSetting的值吧！
to ufozq77(ZQ):好象没有这个函数吧！

junwhj 2003-05-19

打赏
举报

Option Explicit

Private Declare Function RegOpenKeyEx Lib "advapi32" _
Alias "RegOpenKeyExA" _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
ByRef phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32" _
Alias "RegQueryValueExA" _
(ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
ByRef lpType As Long, _
ByVal lpData As String, _
ByRef lpcbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32" _
(ByVal hKey As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)

Private Const READ_CONTROL = &H20000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

Private Const HKEY_CURRENT_USER = &H80000001
Private Const ERROR_SUCCESS = 0
Private Const REG_SZ = 1
Private Const REG_BINARY = 3
Private Const REG_DWORD = 4

Private Sub Command1_Click()
Dim strBinary As String
'HKEY_CURRENT_USER
' +-----Test
' +----(默认) REG_SZ
' +----TestBinary REG_BINARY EB 90 56 58
If GetKeyValue(HKEY_CURRENT_USER, "Test", "TestBinary", strBinary) Then
MsgBox strBinary
End If
End Sub

Private Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean
Dim i As Long
Dim rc As Long
Dim hKey As Long
Dim hDepth As Long
Dim KeyValType As Long
Dim tmpVal As String
Dim KeyValSize As Long
Dim arrBinary() As Byte

rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey)

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError

tmpVal = String$(1024, 0)
KeyValSize = 1024

rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize)

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError

If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then
tmpVal = Left(tmpVal, KeyValSize - 1)
Else
tmpVal = Left(tmpVal, KeyValSize)
End If

Select Case KeyValType
Case REG_SZ
KeyVal = tmpVal
Case REG_DWORD
For i = Len(tmpVal) To 1 Step -1
KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1)))
Next
KeyVal = Format$("&H" + KeyVal)
Case REG_BINARY
ReDim arrBinary(1 To KeyValSize)
Call CopyMemory(arrBinary(1), ByVal tmpVal, KeyValSize)
For i = 1 To KeyValSize
KeyVal = KeyVal & " " & Right("0" & Hex(arrBinary(i)), 2)
Next i
End Select

GetKeyValue = True
rc = RegCloseKey(hKey)
Exit Function

GetKeyError:
KeyVal = ""
GetKeyValue = False
rc = RegCloseKey(hKey)
End Function

ufozq77 2003-05-19

打赏
举报

MsgBox GetDWORDValue("HKEY_LOCAL_MACHINE", "DWORD Value")

anosoft 2003-05-19

打赏
举报

用GetSetting函数试试

请问怎样得到注册表的键值？

相关推荐