用这些命令操作注册表并不好,要用API!
VB操作注册表:
http://www.sqreg.com/file/vb/reg_01.htm
http://www.sqreg.com/file/vb/reg_02.htm
http://www.sqreg.com/file/vb/reg_03.htm
http://www.sqreg.com/file/vb/reg_04.htm
http://www.sqreg.com/file/vb/reg_05.htm
http://www.sqreg.com/file/vb/reg_06.htm
http://www.sqreg.com/file/vb/reg_07.htm
VB操作注册表:
http://www.sqreg.com/file/vb/reg_01.htm
http://www.sqreg.com/file/vb/reg_02.htm
http://www.sqreg.com/file/vb/reg_03.htm
http://www.sqreg.com/file/vb/reg_04.htm
http://www.sqreg.com/file/vb/reg_05.htm
http://www.sqreg.com/file/vb/reg_06.htm
http://www.sqreg.com/file/vb/reg_07.htm
====================================================================
SaveSetting 语句
在 Windows 注册表中保存或建立应用程序项目。语法SaveSetting appname, section, key, settingSaveSetting 语句的语法具有下列命名参数:部分 描述 appname 必要。字符串表达式,包含应用程序或工程的名称,对这些应用程序或工程使用设置
section 必要。字符串表达式,包含区域名称,在该区域保存注册表项设置。
key 必要。字符串表达式,包含将要保存的注册表项设置的名称。
setting 必要。表达式,包含 key 的设置值。
说明如果无论如何也不能保存注册表项设置,则将导致错误发生。====================================================================
GetSetting 函数
从 Windows 注册表中的应用程序项目返回注册表项设置值。语法GetSetting(appname, section, key[, default])GetSetting 函数的语法具有下列命名参数:部分 描述 appname 必要。字符串表达式,包含应用程序或工程的名称,要求这些应用程序或工程有注册表项设置。
section 必要。字符串表达式,包含区域名称,要求该区域有注册表项设置。
key 必要。字符串表达式,返回注册表项设置的名称。
default 可选。表达式,如果注册表项设置中没有设置值,则返回缺省值。如果省略,则 default 取值为长度为零的字符串 ("")。
说明如果 GetSetting 的参数中的任何一项都不存在,则 GetSetting 返回 default 的值。
====================================================================
GetAllSettings 函数
从 Windows 注册表中返回应用程序项目的所有注册表项设置及其相应值(开始是由 SaveSetting 产生)。语法GetAllSettings(appname, section)GetAllSettings 函数的语法具有下列命名参数:部分 描述 appname 必要。字符串表达式,包含应用程序或工程的名称,并要求这些应用程序或工程有注册表项设置 section 必要。字符串表达式,包含区域名称,并要求该区域有注册表项设置。GetAllSettings 返回 Variant,其内容为字符串的二维数组,该二维数组包含指定区域中的所有注册表项设置及其对应值。
说明如果 appname 或 section 不存在,则 GetAllSettings 返回未初始化的 Variant。
====================================================================
DeleteSetting 语句
在 Windows 注册表中,从应用程序项目里删除区域或注册表项设置。语法 DeleteSetting appname, section[, key]DeleteSetting 语句的语法具有下列命名参数:部分 描述
appname 必需的。字符串表达式,包含应用程序或工程的名称,区域或注册表项用于这些应用程序或工程。
section 必要。字符串表达式,包含要删除注册表项设置的区域名称。如果只有 appname 和 section,则将指定的区域连同所有有关的注册表项设置都删除。
key 可选。字符串表达式,包含要删除的注册表项设置。
说明如果提供了所有参数,则删除指定的注册表项设置。如果试图使用不存在的区域或注册表项设置上的 DeleteSetting 语句,则发生一个运行时错误。
2CD
SaveSetting appname:="MyApp", section:="Startup", _
Key:="Top", setting:=75
SaveSetting "MyApp", "Startup", "Left", 50
' 删除区段及所有的设置值。
DeleteSetting "MyApp", "Startup"'2、本示例首先使用 SaveSetting 语句来建立 Windows 注册区(或 16位 Windows 平台的.INI 档)里 appname 应用程序的项目,然后使用 GetSetting 函数来得到其中一项设置并显示出来。因为有传入参数 default,GetSetting 函数一定会有返回值。请注意,section 名称不能用 GetSetting 函数取得。最后,使用 DeleteSetting 语句将该应用程序项删除。' 用来保存 GetSetting 函数所返回之二维数组数据的变量。
Dim MySettings As Variant
' 在注册区中添加项目。
SaveSetting "MyApp", "Startup", "Top", 75
SaveSetting "MyApp", "Startup", "Left", 50Debug.Print GetSetting(appname:="MyApp", section:="Startup", _
Key:="Left", Default:="25")
' 删除区段及所有的设置值。
DeleteSetting "MyApp", "Startup"'3、本示例首先使用 SaveSetting 语句来建立 Windows 注册区(或 16 位 Windows 平台的.INI 档)里 appname 应用程序的项目,然后再使用 GetAllSettings 函数来取得设置值并显示出来。请注意,应用程序名和 section 名称不能用 GetAllSettings 函数取得。最后,使用 DeleteSetting
' 语句将该应用程序项删除。' 用来保存 GetAllSettings 函数所返回之二维数组数据的变量
' 整型数是用来计数用。
Dim MySettings As Variant, intSettings As Integer
' 在注册区中添加设置值。
SaveSetting appname:="MyApp", section:="Startup", _
Key:="Top", setting:=75
SaveSetting "MyApp", "Startup", "Left", 50
' 取得输入项的设置值。
MySettings = GetAllSettings(appname:="MyApp", section:="Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"这些在5.0里面都有