请问如何在文本框内读入注册表的某个键值，谢谢

Question

请看王国荣关于 API 的书。或查一下程序员大本营光盘。

Answer 1

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
Public 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         

Answer 2

sub..........on error goto eee
dim data as long
dim typ as long
dim size as long
dim hkey as long
dim hret as long
hret=regopenkry(HKEY_DYN_DATA,"Perfstats\statdata",hkey)//打开主键
hret=regqueryvalueex(hkey,"KERNEL\CPUUsage",0&,REG+DWORD,data,4)//读取参数
text1.text=data
hret=regclosekey(hkey)
exit sub
eee:
msgbox "读取注册表错误！",vbexclamation
end sub