对不起啊!Obcious这个东西写错了!
这一句应该是这样的:
ret = RegSetValueEx(hKey, "A", 0, REG_SZ, ByVal "B", 2)
    

解决方案 »

  1.   

    把这三个API函数的声明贴出来,单看你的代码没有错,可能出在声明处。
      

  2.   

    声明:
        Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
        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
        Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
         Const REG_SZ = 1
    是我直接从api文本浏览器中粘贴的!
      

  3.   

    我用的操作系统是win2000 professional 不会是和这个有关吧?
      

  4.   

    to huangguanshu()
    谢谢你!我终于发现问题了!
    由于疏忽,我源程序中的键值少写了一个字母!给分儿!