Dim rot As Long, hKey As Long, ret As Long
Dim value As Long, lptype As Long, length As Long
  
RegOpenKey  HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", hKeyret = RegQueryValueEx(hKey, "yesnovalue", 0, lptype, 0, length)If ret <> 0 And ret <> 234 Then               '不存在则建立
   RegCreateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", hKey   RegSetValueEx hKey, "yesnovalue", 0, REG_SZ, ByVal "0", 1
End If

解决方案 »

  1.   

    你再查一下 RegOpenKey 的使用是不是有错。格式我在上面的例子里有了
      

  2.   

    我主要HKEY_DYN_DATA或HKEY_PERFORMANCE_DATA 来读取cpu的情况其他的根键我这样也能正常读的!
      

  3.   

    两位有没有在2000下面察看cpu运行情况的源码〉?
    我下载了几个都不好用
      

  4.   

    http://www.csdn.net/cnshare/soft/2/2417.shtm这是csdn提供的源码,我下载了,也是同样的错误!2000下面或者是用下面的其中之一,而且是不写入注册表的,直接在内存中
    HKEY_PERFORMANCE_DATA = &H80000004 
    HKEY_DYN_DATA = &H80000006 可是我用了两个都出错!
      

  5.   

    HKEY_DYN_DATA  是什么键阿?2000的 注册表有这个键?
      

  6.   

    当前系统的运行性能都保存在这里
    比如cpu
    就是PerfStats\StatData\KERNEL\CPUUsage
      

  7.   

    或者大家有没有在2000下面能够察看CPU使用情况的源码〉?
    发到我得信箱:[email protected]
      

  8.   

    http://www.csdn.net/expert/topic/899/899476.xml?temp=.4049799