Microsoft公司在Windows NT3.51开始提出了注册表(Registry)的概念。注册表是Windows的一个重要组成部分,它保存了Windows中的各种配置参数。Windows的各个功能模块和安装的应用模块,在启动时都要读取注册表的信息,并根据这些参数来设置自己的运行环境,我们就可以把注册信息写入注册表来实现程序的共享注册。
在VB中,有两种方法可以访问注册表:第一种是使用VB提供的函数:
Private Sub Command1_Click()
Dim KeyName as String’创建的项目名称
Dim SubKeyName as String’项目下的子项
Dim ValueName as String’子项下的值项名称
Dim Value1 as String’值项的值
Keyname=”MyKey”
SubKeyName=”MySubKey”
ValueName=”MyValueName”
Value1=”My New Key!”
’查询是否存在MyValueName值项,如果不存在,返回NOEXIT
Ret=GetSetting(KeyName,SubKeyName,ValueName,”NOEXIT”)
If ret=”NOEXIT”then
’如果不存在MyValueName值项,则创建该值项
SaveSetting KeyName,SubKeyName,ValueName,value1
Else
’如果存在,则删除这个程序项MyKey
DeleteSetting(KeyName)
End if
End Sub
创建的默认位置为HKEY_CURRENT_USERSoftwareVB and VBA Program Settings下
第二种使用Windows API函数处理注册表
Global Const HKEY_CLASSES_ROOT=&H80000000
Global Const HKEY_CURRENT_USER=&H80000001
Global Const HKEY_LOCAL_MACHINE=&H80000002
Global Const HKEY_USERS=&H80000003
Global Const ERROR_SUCCESS=0&
Global Const ERROR_NO_MORE_ITEMS=259&
Public Const REG_SZ=1