开发手记（六）――共享软件注册程序编写实例(3)

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