在各种程序设计语言当中，Visual Basic 是最容易上手的了。这里以VB编程为主，对VC，Delphi，VFP只在后面给出几个实例。
使用 Visual Basic 来操作注册表
在VB中处理注册表，通常有两种途径：一是利用VB自身的函数；二是调用 Windows API 函数来操作注册表。
一、 MicroSoft Visual Basic 中对于注册表的操作函数
说明：在 Visual Basic 6.0 内部，为了存储创建于 VB 的应用程序的程序信息，已经提供了一个标准的注册位置(如图1)：HKEY_CURRENT_USER\Software\VB and VBA Program settings\(为了叙述简单，以下将这一位置简称“标准位置”)。
 |
MicroSoft Visual Basic 中对于注册表的操作函数共有4个，它们是 SaveSetting, GetSetting, GetAllSettings, DeleteSettings等。
1、SaveSetting 在 Windows 注册表中保存或建立应用程序项目
语法 SaveSetting appname, section, key, setting
参数 appname:字符串表达式，包含应用程序或工程的名称，是标准位置下的一个子键。
section:字符串表达式，包含区域名称，是 appname 下的一个子键。
key:字符串表达式，标准位置\appname\section子键的键名(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 "我的工程", "我的子键"
3、GetAllSettings 从 Windows 注册表中返回应用程序项目的所有注册表项设置及其相应值
语法 GetAllSettings(appname, section)
参数 appname 必要。字符串表达式，应用程序或工程的名称。
section 必要。字符串表达式，包含区域名称，并要求该区域有注册表项设置。GetAllSettings 返回 Variant，其内容为字符串的二维数组，该二维数组包含指定区域中的所有注册表项设置及其对应值。
说明 如果 appname 或 section 不存在，则 GetAllSettings 返回未初始化的 Varian
函数示例 本示例首先使用 SaveSetting 语句来建立 Windows标准位置里 appname 应用程序的项目，然后再使用 GetAllSettings 函数来取得设置值并显示出来。请注意，应用程序名和 section 名称不能用 GetAllSettings 函数取得。最后，使用 DeleteSetting 语句将该应用程序项删除。
' 用来保存 GetAllSettings 函数所返回之二维数组数据的变量
' 整型数是用来计数用。
Dim MySettings As Variant, intSettings As Integer
' 在注册表中添加设置值。
SaveSetting appname := "我的工程", section := "我的子键", key := "Top", setting := 75
SaveSetting "我的工程","我的子键", "Left", 50
' 取得输入项的设置值。
MySettings = GetAllSettings(appname := "我的工程",
section := "我的子键")
For intSettings = LBound(MySettings, 1) To
UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "我的工程", "我的子键" |
4、DeleteSetting 从应用程序项目里删除区域或注册表项设置
语法 DeleteSetting appname, section[, key]
参数 appname 必需的。字符串表达式，应用程序或工程的名称。
section 必要。字符串表达式，包含要删除注册表项设置的区域名称。如果只有 appname 和 section，则将指定的区域连同所有有关的注册表项设置都删除。
key 可选。字符串表达式，包含要删除的注册表项设置。
说明 如果提供了所有参数，则删除指定的注册表项设置。如果试图使用不存在的区域或注册表项设置上的 DeleteSetting 语句，则发生一个运行时错误。
函数示例 见SaveSetting函数示例
