编程解决注册表问题所需的函数详解

　在各种程序设计语言当中，Visual Basic 是最容易上手的了。我本人就是从QBASIC 语言直接转移过来的。我曾经做过一个实验：将原先在QBASIC　语言中编写的代码，原封不动的移植到VB上来，居然有多数能够运行。其他的代码也基本上只作微量调整（如把QBASIC中的“INPUT”语句统一换成VB中的“InputBox”），就可以在VB中直接使用了。另外，考虑到各种语言之间的相通性，这里以VB编程为主，对VC，Delphi，VFP只在后面给出几个实例，敬请高手指教。

　　● 使用 Visual Basic 来操作注册表

　　在VB中处理注册表，通常有两种途径：一是利用VB自身的函数；二是调用 Windows API 函数来操作注册表。

　　一、 MicroSoft Visual Basic 中对于注册表的操作函数

　　说明：在 Visual Basic 6.0 内部，为了存储创建于 VB 的应用程序的程序信息，已经提供了一个标准的注册位置(如图1)：HKEY_CURRENT_USERSoftwareVB and VBA Program settings(为了叙述简单，以下将这一位置简称“标准位置”)。

　　MicroSoft Visual Basic 中对于注册表的操作函数共有4个，它们是 SaveSetting, GetSetting, GetAllSettings, DeleteSettings等。

　　1、SaveSetting 在 Windows 注册表中保存或建立应用程序项目

　　语法 SaveSetting appname, section, key, setting

　　参数 appname:字符串表达式，包含应用程序或工程的名称，是标准位置下的一个子键。

　　section:字符串表达式，包含区域名称，是 appname 下的一个子键。

　　key:字符串表达式，标准位置appnamesection子键的键名(Value Name)。

　　setting:字符串表达式，包含 key 的设置值。

　　函数示例 下列示例先使用 SaveSetting 语句，来建立Windows标准位置（或 16位 Windows 平台的 ini 文件）里 “我的工程”应用程序的项目，然后使用 DeleteSetting 语句将之删除。因为没有指定 key参数，整个子键都会被删除掉，包括子键名称及其所有的键值（key）。

　　' 在标准位置中添加一些设置值。

　　SaveSetting appname := "我的工程", section := "我的子键", key := "Top", setting := 75

　　SaveSetting "我的工程","我的子键", "Left", 50

　　' 删除子键及所有的设置值。

　　DeleteSetting "我的工程", "我的子键" ①在注册表中添加一些设置值。用 SaveSetting 语句在标准位置下建立名为“我的工程我的子键”的子键。

　　SaveSetting appname := "我的工程", section := "我的子键", key := "Top", setting := 75

　　SaveSetting "我的工程", "我的子键", "Left", 50

　　②删除子键及所有的设置值。

　　DeleteSetting "我的工程", "我的子键"

　　2、GetSetting 从 Windows 注册表中的应用程序项目返回注册表项设置值

　　语法 GetSetting appname, section, key[, default]

　　参数 appname:字符串表达式，包含应用程序或工程的名称。

　　section:字符串表达式，包含区域名称，要求该区域有注册表项设置。

　　key:字符串表达式，返回注册表项设置的名称。

　　default:可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。

　　说明 如果 GetSetting 无参数，则 GetSetting 返回 default 的值

　　函数示例 使用 SaveSetting 语句建立 appname 应用程序的项目，然后使用 GetSetting 函数得到其中一项设置并显示出来。因为有传入参数 default，GetSetting 函数一定会有返回值。请注意，section 名称不能用 GetSetting 函数取得。最后，使用 DeleteSetting 语句将该应用程序项删除。

　　①定义保存 GetSetting 函数返回之二维数组数据的变量

　　　 Dim MySettings As Variant

　　②在注册表中添加项目

　　SaveSetting "我的工程","我的子键", "Top", 75

　　SaveSetting "我的工程","我的子键", "Left", 50

　　Debug.Print GetSetting(appname := "我的工程", section := "我的子键", key := "Left", default := "25")

　　③删除注册表中项目

　　DeleteSetting "我的工程", "我的子键"