如果你要写入字符串就要声明为:Public Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal HKEY As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
'例
RegSetValueExString HKEY_LOCAL_MACHINE, "注册表", 0, REG_SZ, ("注册表操作"), LenB(StrConv("注册表操作", vbFromUnicode))
'例
RegSetValueExString HKEY_LOCAL_MACHINE, "注册表", 0, REG_SZ, ("注册表操作"), LenB(StrConv("注册表操作", vbFromUnicode))
解决方案 »
- 通过计算机名查找出它的IP地址
- VB中的datagrid控件,如何用代碼綁定某一列??
- 如何监控打印机的状态
- “实时2147217904错误,至少一个参数未指定值”什么含义?
- vb中使用CreateBitmap
- winsock 急救!
- 如何实现RICTTEXTBOX中的文字(带图形的),而不影响图形
- 关于在VB中如何多次更改SQL SERVER中用户角色密码的问题——在线等待,一定给分
- 请问如何关闭win200,使用exitwindow 的API无用
- 关于winsock和richtextbox的2个问题
- SqlServer中如果Sum出来的东西是NULL,我想使返回的值为0,如何?
- 知不知道win2000pro和win2000server的区别!(说者便有分)
多谢!!!
RegSetValueEx是可以,但必须加上bvval'例
RegSetValueEx HKEY_LOCAL_MACHINE, "注册表", 0, REG_SZ,Byval ("注册表操作"), LenB(StrConv("注册表操作", vbFromUnicode))
Public 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
-------------
由于这里的类型是Any,所以在使用必须加上Byval ,如果定义为String 或者 Long 就不用了。