石家庄钢管舞培训班:vb6.0 中如何读写注册表
我的邮箱:chunbei@gmail.com
set w=createobject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Hello\name","Bingo"
'作用效果是在"HKLM\SOFTWARE\Microsoft"分支下添加项"Hello",在里面添一个字符串值"Bingo"
那添加个dword值呢?
上面的太过繁了。
set w=createobject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Hello\name","Bingo"
'作用效果是在"HKLM\SOFTWARE\Microsoft"分支下添加项"Hello",在里面添一个字符串值"Bingo"
用API函数.常用的有.
Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult 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
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
这里有两篇文章:
用Visual C++实现注册表简单操作 http://dev.yesky.com/162/2043662.shtml
用VC++6.0编写注册表管理程序
http://www.yesky.com/452/1758952.shtml
使用API 可以佷方便的读写