XDJM 帮帮忙,关于操作注册表的问题!在线等

2007-04-04 09:54:35 237 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ISP（四）图像平滑去噪传统算法详析（方框滤波、均值滤波、高斯滤波、中值滤波、双边滤波）图像滤波，即在尽量保留图像细节特征的条件下对目标图像的噪声进行抑制，是图像预处理中不可缺少的操作，其处理效果的好坏将直接影响到后续图像处理和分析的有效性和可靠性。消除图像中的噪声成分叫作图像的平滑化或滤波操作。信号或图像的能量大部分集中在幅度谱的低频和中频段是很常见的，而在较高频段，感兴趣的信息经常被噪声淹没。因此一个能降低高频成分幅度的滤波器就能够减弱噪声的影响。平滑滤波是低频增强的空间域滤波技... 阅读详情

我现在用vb对注册表操作遇到一个问题,操作系统的用户不同取的值不一样
代码如下:
Option Explicit
Private Declare Function RegQueryValueEx Lib "advapi32.dll"Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByRef phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const HKEY_CURRENT_USER As Long = &H80000001

Function GetRegValue(ByVal ValueName As String) As String
Dim lngRet As Long
Dim lnghKey As Long
Dim lnglenData As Long
Dim lngtypeData As Long
Dim strRegName As String
Dim strkeyValue As String
lngRet = RegOpenKey(HKEY_CURRENT_USER, "software\VB and VBA Program Settings\setUser", lnghKey)
If lngRet <> 0 Then
GetRegValue = "RegOpenKey"
Exit Function
End If
lngRet = RegQueryValueEx(lnghKey, ValueName, 0, lngtypeData, ByVal vbNullString, lnglenData)

strkeyValue = String(lnglenData, Chr(0))
RegQueryValueEx lnghKey, ValueName, 0, lngtypeData, ByVal strkeyValue, lnglenData
GetRegValue = Left(strkeyValue, InStr(strkeyValue, Chr(0)) - 1)
If lngRet <> 0 Then
GetRegValue = "RegQueryValueEx"
RegCloseKey lnghKey
Exit Function
End If

RegCloseKey lnghKey
End Function

现在操作系统不管用什么用户操作,只能取出 administrator 用户写入的值,我现在要求取出当前用户的值,谢谢啦

...全文