取注册表值时，取含中文字符的字符串注册值出错，哪位大侠知道如何解决？

功夫熊猫kong 2006-01-08 06:59:46

取注册表值时，取含中文字符的字符串注册值出错，哪位大侠知道如何解决？
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SOFTWARE\Soft\Operator", 0, KEY_READ, hKey
RegQueryValueEx hKey, "SetupPath", 0, REG_SZ, ByVal TempValue, ValueSize
取含中文值时，ValueSize长度大于实际长度，TempValue中值在实际取的内容后还包括空格或其他字符。如：注册表中值为"c:\Program Files\MySoft\我的VB编程软件测试"，TempValue取得值为"c:\Program Files\MySoft\我的VB编程软件测试 s t "

...全文

231 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Tiger_Zhao 2006-01-10

打赏
举报

要用 ANSI 长度截取
= strconv(leftb( strconv(s,vbFromUnicode),length),vbUnicode)

junki 2006-01-10

打赏
举报

'看一看这个专门转换的函数
Function AscConvStr(ss As String) As String
Dim pos As Integer

pos = InStr(ss, vbNullChar)
If pos > 0 Then
AscConvStr = Left(ss, pos - 1)
Else
AscConvStr = ss
End If
End Function

northwolves 2006-01-10

打赏
举报

try:

RegOpenKeyEx HKEY_LOCAL_MACHINE, "SOFTWARE\Soft\Operator", 0, KEY_READ, hKey
RegQueryValueEx hKey, "SetupPath", 0, REG_SZ, ByVal TempValue, ValueSize
TempValue=split(temp,chr(0))(0)

rainstormmaster 2006-01-09

打赏
举报

关键在这句：
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)

取出字串后，要用left处理

rainstormmaster 2006-01-09

打赏
举报

Option Explicit
Const REG_SZ = 1 ' Unicode nul terminated string
Const REG_BINARY = 3 ' Free form binary
Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
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 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
Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String
Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long
'retrieve nformation about the key

lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then
'Create a buffer
strBuf = String(lDataBufSize, Chr$(0))
'retrieve the key's content
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)
If lResult = 0 Then
'Remove the unnecessary chr$(0)'s
RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
End If
ElseIf lValueType = REG_BINARY Then
Dim strData As Integer
'retrieve the key's value
lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = strData
End If
End If
End If
End Function
Function GetString(hKey As Long, strPath As String, strValue As String)
Dim Ret
'Open the key
RegOpenKey hKey, strPath, Ret
'Get the key's content
GetString = RegQueryStringValue(Ret, strValue)
'Close the key
RegCloseKey Ret
End Function
Private Sub Command2_Click()
Dim s As String
s = GetString(HKEY_LOCAL_MACHINE, "SOFTWARE\Soft", "Operator")
MsgBox s
End Sub

Windows API中包含很多函数，约有1500多个，根据其类别主要分为：窗口及窗口过程、声音及音频控制、位图及位图处理、INI及注册表操作、窗口效果及管理类、字体相关、错误处理、通用对话框、压缩及加密控制、文件及目录操作、剪切板使用、绘图及图形相关、游戏手柄及键盘相关、堆栰操作、图标光标相关、菜单操作、Hook及消息处理、鼠标控制类、进程及线程管理、文本及字符串操作、时间和定时器管理、端口及网络相关、存储及显示打印设备、多媒体及MCI相关、内存管理、操作系统Shell、Windows系统信息和其他等。Windows中有3个非常重要的底层DLL文件:Kernel32.dll、User32.dll和GDI32.dll。其中Kernel32.dll主要包含用于管理内存、进程和线程的函数;而User32.dll中包含的则是用于执行用户界面任务的函数，比如把用户的鼠标点击操作传递给窗口等等;GDI32.dll全称是Graphical Device Interface(图形设备接口)，包含用于画图和显示文本的函数，比如要显示一个程序窗口，就调用了其中的函数来画这个窗口。下面就常用的鼠标、键盘以及窗体事件来介绍一下C#开放Windows API的基本过程：

转自看雪的CCDeath 【文章标题】: WinMount虚拟磁盘深入研究(-)之filedisk源代码详细分析【下载地址】: 自己搜索下载【作者声明】: 只是感兴趣，没有其他目的。失误之处敬请诸位大侠赐教! -------------------------------------------------------------------------------- 【详细过程】我的驱动入门三终结版，还再学习中。由于个人也有些事情要处理，研究起刘涛涛WinMount的虚拟磁盘，而且这方面的书籍，貌似乎没见过，只有傻傻的几K代码存在，没注释什么的，整体框架也没说。虚拟光驱用实现文件来模拟磁盘的原理,是文件系统驱动程序。把filedisk驱动安装，查看install.txt文件。 1.Copy the driver (filedisk.sys) to %systemroot%\system32\drivers\. 2.Import filedisk.reg to the Registry. 3.Reboot. 4.Use the program filedisk.exe to mount/umount files, for an example of use see the file example.txt. 可以不用重起机子的方法，找一个动载加载驱动工具：DriverMonitor不错了。然后在“开始菜单”-> "运行"输入 "net start filedisk" 出现：“ 请求的服务已经启动”。这个必须得成功才行哦。接下来注意点。cmd后出现这个目录 C:\Documents and Settings \Administrator>，在接下来敲入 filedisk /mount 0 c:\temp\filedisk.img 8M f: C:\Documents and Settings \Administrator>filedisk /mount 0 c:\temp\filedisk.img 8M r: 回车一下。出现"FileDisk：系统找不到指定路径" 。原因就出在这 "c:\temp\filedisk.img" 中的C:\temp要这个目录才行。至于 filedisk.img不是必须，会自动创建。如果有出现"FileDisk：函数不正确" 中的“filedisk /mount 0 ”中"0"代号已经被使用。可以改为"1". 查看一下，结果就出现一个还未格式化 8M R磁盘，查看C:\temp下生成一个filedisk.img也8M。想卸载掉"filedisk /umount r:". 还可以创建很大的虚拟磁盘，你把"8M"改换其他的就是了。以上如果都没出现结果，基本上就没兴趣继续研究下去了，我看到了很多人初学filedisk都遇到以上这些问题(包括我在内) ，把我折腾了半天。先来分析驱动层代码，后来分析应用层代码。更详细的请看附件里的源代码。我对代码工程方式重新布局，用起来更方便。 ===================================//先来分析驱动层代码 1.对filedisk.h进行分析 #define FILE_DEVICE_FILE_DISK 0x8000//用户定义范围0x8000~ #define IOCTL_FILE_DISK_OPEN_FILE CTL_CODE(FILE_DEVICE_FILE_DISK, 0x800, METHOD_BUFFERED, FILE_READ_ACCESS | FILE_WRITE_ACCESS) #define IOCTL_FILE_DISK_CLOSE_FILE CTL_CODE(FILE_DEVICE_FILE_DISK, 0x801, METHOD_BUFFERED, FILE_READ_ACCESS | FILE_WRITE_ACCESS) #define IOCTL_FILE_DISK_QUERY_FILE CTL_CODE(FILE_DEVICE_FILE_DISK, 0x802, METHOD_BUFFERED, FILE_READ_ACCESS) typedef struct _OPEN_FILE_INFORMATION { LARGE_INTEGER FileSize;//文件大小 BOOLEAN ReadOnly;//只读属性 USHORT Fil

C语言中求字符串长度的函数的几种实现方法1.最常用的方法是创建一个计数器，判断是否遇到‘\0',不是'\0'指针就往后加一。int my_strlen(const char *str){assert(str != NULL);int count = 0;while (*str != '\0'){count++;str++;}return count;}2.不创建计数器，从前向后遍历一遍，没有遇到‘...