VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
用API函数向注册表内写入字符的问题
发表在VB答疑区
2010-01-28
是否精华
是
否
版块置顶:
是
否
Option Explicit
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
Const REG_DWORD = 4
Dim Ret As Long, hKey As Long
'声明API函数
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 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
'点击按钮运行
Private Sub Command1_Click()
Ret = RegCreateKey(HKEY_LOCAL_MACHINE, "software\PMsoft", hKey)
If Ret = 0 Then
RegSetValueEx hKey, "pass", 0, REG_SZ, "a", 4
End If
End Sub
运行上面的例子为什么在注册表中显示的值是乱码？如何在注册表里写入正确的字符？
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
Const REG_DWORD = 4
Dim Ret As Long, hKey As Long
'声明API函数
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 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
'点击按钮运行
Private Sub Command1_Click()
Ret = RegCreateKey(HKEY_LOCAL_MACHINE, "software\PMsoft", hKey)
If Ret = 0 Then
RegSetValueEx hKey, "pass", 0, REG_SZ, "a", 4
End If
End Sub
运行上面的例子为什么在注册表中显示的值是乱码？如何在注册表里写入正确的字符？
分享到：
