| 编程解决注册表问题所需的函数详解 |
|
作者：佚名 文章来源：onegreen.net 点击数： 更新时间：2008-5-13 0:07:47  |
在各种程序设计语言当中，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_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 的设置值。 www.xker.com(小新技术网)
函数示例 下列示例先使用 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 := "[1] [2] [3] [4] [5] [6] [7] [8] 下一页 |
| 文章录入：onegreen 责任编辑：onegreen |
|
上一篇文章： 在VC＋＋中访问和修改系统注册表
下一篇文章： 对注册表进行编程的“捷径” |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
