VB 4.0程序中对已设定参数的存取方法

王斌
1997-01-01

　　Ｗｉｎｄｏｗｓ应用程序经常需要将一些参数设置保存下来以备下次启动时使用。在Ｗｉｎｄｏｗｓ　３．１中，程序设置被保存在Ｗｉｎｄｏｗｓ系统初始化文件（．ＩＮＩ）中，而Ｗｉｎｄｏｗｓ　９５的程序设置则被保存在Ｗｉｎｄｏｗｓ　９５注册表中。
　　ＶＢ　３．０没有提供专门的函数或语句来存取已设定参数，只能通过调用ＧｅｔＰｒｉｖａｔｅＰｒｏｆｉｌｅＳｔｒｉｎｇ、ＷｒｉｔｅＰｒｉｖａｔｅＰｒｏｆｉｌｅＳｔｒｉｎｇ等几个Ｗｉｎｄｏｗｓ　ＡＰＩ函数来访问．ＩＮＩ文件，实现对所设定参数的存取。在ＶＢ　４．０中已经新增了两个语句和两个函数专门用来访问Ｗｉｎｄｏｗｓ　９５注册表（或１６位Ｗｉｎｄｏｗｓ平台上的．ＩＮＩ文件），对程序已设定参数的存取不必再使用Ｗｉｎｄｏｗｓ　ＡＰＩ函数，这些语句和函数都支持命名参数，其语法和功能如下：
#3　　１．ＳＡＶＥＳＥＴＴＩＮＧ语句
　　语法：
　　ＳａｖｅＳｅｔｔｉｎｇ　ａｐｐｎａｍｅ，ｓｅｃｔｉｏｎ，ｋｅｙ，ｓｅｔｔｉｎｇ
　　命令参数及类型／说明：
　　ａｐｐｎａｍｅ：字符串表达式——应用程序名
　　ｓｅｃｔｉｏｎ：字符串表达式——小节名
　　ｋｅｙ：字符串表达式——关键字名
　　ｓｅｔｔｉｎｇ：表达式——关键字的设定值
　　功能：
　　此语句在Ｗｉｎｄｏｗｓ　９５注册表中保存或建立一个应用程序的注册项。如果由于某种原因不能保存关键字设定，则产生一个错误信息。
#3　　２．ＧＥＴＡＬＬＳＥＴＴＩＮＧＳ函数
　　语法：
　　ＧｅｔＡｌｌＳｅｔｔｉｎｇｓ（ａｐｐｎａｍｅ，ｓｅｃｔｉｏｎ）
　　命令参数及类型／说明：
　　ａｐｐｎａｍｅ：字符串表达式——应用程序名
　　ｓｅｃｔｉｏｎ：字符串表达式——小节名
　　功能：
　　此函数从应用程序的Ｗｉｎｄｏｗｓ　９５注册表项取回关键字及其对应的设定值。
　　ＧｅｔＡｌｌＳｅｔｔｉｎｇｓ返回值为一个Ｖａｒｉａｎｔ，其内容为包含指定小节中的所有关键字及其对应设定值的二维字符串数组。如果ａｐｐｎａｍｅ或ｓｅｃｔｉｏｎ不存在，ＧｅｔＡｌｌＳｅｔｔｉｎｇｓ返回一个未初始化的Ｖａｒｉａｎｔ。
#3　　３．ＧＥＴＳＥＴＴＩＮＧ函数
　　语法：
　　ＧｅｔＳｅｔｔｉｎｇ（ａｐｐｎａｍｅ，ｓｅｃｔｉｏｎ，ｋｅｙ［，ｄｅｆａｕｌｔ］）
　　命令参数及类型／说明：
　　ａｐｐｎａｍｅ：字符串表达式——应用程序名
　　ｓｅｃｔｉｏｎ：字符串表达式——小节名
　　ｋｅｙ：字符串表达式——关键字名
　　ｄｅｆａｕｌｔ：表达式——关键字没有设定值时所返回的值。如果省略，ｄｅｆａｕｌｔ被假定为零长度字符串（＂＂）
　　功能：
　　此函数从应用程序的Ｗｉｎｄｏｗｓ　９５注册表项返回关键字设置。
　　如果任何一个命令名参数给出的设置不存在，ＧｅｔＳｅｔｔｉｎｇ返回ｄｅｆａｕｌｔ的值。
#3　　４．ＤＥＬＥＴＥＳＥＴＴＩＮＧ语句
　　语法：
　　ＤｅｌｅｔｅＳｅｔｔｉｎｇ　ａｐｐｎａｍｅ，ｓｅｃｔｉｏｎ［，ｋｅｙ］
　　命令参数及类型／说明：
　　ａｐｐｎａｍｅ：字符串表达式——应用程序名
　　ｓｅｃｔｉｏｎ：字符串表达式——小节名
　　ｋｅｙ：字符串表达式——关键字名
　　功能：
　　此语句从Ｗｉｎｄｏｗｓ　９５注册表项删除一个小节或关键字设定。
　　如果提供所有参数，则指定的关键字设定被删除。如果只提供ａｐｐｎａｍｅ和ｓｅｃｔｉｏｎ，则指定的小节及其所有相关关键字设置都被删除。
　　如果指定的小节和关键字设置不存在，ＤｅｌｅｔｅＳｅｔｔｉｎｇ语句什么也不做。
#3　　５．示例
　　本例首先用ＳａｖｅＳｅｔｔｉｎｇ语句在Ｗｉｎｄｏｗｓ　９５注册表中为指定程序建立注册项，然后用ＧｅｔＡｌｌＳｅｔｔｉｎｇｓ和ＧｅｔＳｅｔｔｉｎｇ函数在Ｄｅｂｕｇ窗口中显示关键字设置，最后用ＤｅｌｅｔｅＳｅｔｔｉｎｇ语句删除程序的注册项。
　　Ｄｉｍ　Ｍｙｓｅｔｔｉｎｇｓ　Ａｓ　Ｖａｒｉａｎｔ
　　｀用于接收ＧｅｔＡｌｌＳｅｔｔｉｎｇｓ返回的二维数组
　　Ｄｉｍ　ＳｅｔｔｉｎｇＩｎｄｅｘ　Ａｓ　Ｉｎｔｅｇｅｒ
　　｀在注册表中ＭｙＡｐｐ项的Ｓｔａｒｔｕｐ小节保存一些设定
　　ＳａｖｅＳｅｔｔｉｎｇ　Ａｐｐｎａｍｅ：＝＂ＭｙＡｐｐ＂，Ｓｅｃｔｉｏｎ：＝＂Ｓｔａｒｔｕｐ＂，ｋｅｙ：＝＂Ｔｏｐ＂，Ｓｅｔｔｉｎｇ：＝７５
　　ＳａｖｅＳｅｔｔｉｎｇ　＂ＭｙＡｐｐ＂，＂Ｓｔａｒｔｕｐ＂，＂Ｌｅｆｔ＂，５０
　　ＳａｖｅＳｅｔｔｉｎｇ　＂ＭｙＡｐｐ＂，＂Ｓｔａｒｔｕｐ＂，＂Ｐａｓｓｗｏｒｄ＂，＂ＷＢ＂
　　｀返回注册表ＭｙＡｐｐ项的Ｓｔａｒｔｕｐ小节ｌｅｆｔ的设定值
　　Ｄｅｂｕｇ．Ｐｒｉｎｔ　ＧｅｔＳｅｔｔｉｎｇ（＂ＭｙＡｐｐ＂，＂Ｓｔａｒｔｕｐ＂，＂Ｌｅｆｔ＂，＂２５＂）
　　｀返回注册表中ＭｙＡｐｐ项的Ｓｔａｒｔｕｐ小节全部设定
　　Ｍｙｓｅｔｔｉｎｇｓ＝ＧｅｔＡｌｌＳｅｔｔｉｎｇｓ（＂ＭｙＡｐｐ＂，＂Ｓｔａｒｔｕｐ＂）
　　Ｆｏｒ　ＳｅｔｔｉｎｇＩｎｄｅｘ＝ＬＢｏｕｎｄ（Ｍｙｓｅｔｔｉｎｇｓ，１）　Ｔｏ　ＵＢｏｕｎｄ（Ｍｙｓｅｔｔｉｎｇｓ，１）
　　Ｄｅｂｕｇ．Ｐｒｉｎｔ　Ｍｙｓｅｔｔｉｎｇｓ（ＳｅｔｔｉｎｇＩｎｄｅｘ，０）；＂＝＂；Ｍｙｓｅｔｔｉｎｇｓ（ｓｅｔｔｉｎｇＩｎｄｅｘ，１）
　　Ｎｅｘｔ　ＳｅｔｔｉｎｇＩｎｄｅｘ
　　｀删除注册表中ＭｙＡｐｐ项的Ｓｔａｒｔｕｐ小节Ｌｅｆｔ的设定
　　ＤｅｌｅｔｅＳｅｔｔｉｎｇ　＂ＭｙＡｐｐ＂，＂Ｓｔａｒｔｕｐ＂，＂Ｌｅｆｔ＂
　　｀删除注册表中ＭｙＡｐｐ项的Ｓｔａｒｔｕｐ小节全部设定
　　ＤｅｌｅｔｅＳｅｔｔｉｎｇ　＂ＭｙＡｐｐ＂，＂Ｓｔａｒｔｕｐ＂
 