请问注册表函数的具体用法,各举一例.(GetSetting、DeleteSetting)

Question

函数示例
本示例首先使用 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"

Answer 1

GetSetting 函数
      从 Windows 注册表中的应用程序项目返回注册表项设置值。语法GetSetting(appname, section, key[, default])GetSetting 函数的语法具有下列命名参数：部分 描述 appname 必要。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。 
section 必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。 
key 必要。字符串表达式，返回注册表项设置的名称。 
default 可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。 
说明如果 GetSetting 的参数中的任何一项都不存在，则 GetSetting 返回 default 的值。
GetSetting 函数示例
本示例首先使用 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"
DeleteSetting 语句
      在 Windows 注册表中，从应用程序项目里删除区域或注册表项设置。语法 DeleteSetting appname, section[, key]DeleteSetting 语句的语法具有下列命名参数：部分 描述 
appname 必需的。字符串表达式，包含应用程序或工程的名称，区域或注册表项用于这些应用程序或工程。 
section 必要。字符串表达式，包含要删除注册表项设置的区域名称。如果只有 appname 和 section，则将指定的区域连同所有有关的注册表项设置都删除。 
key 可选。字符串表达式，包含要删除的注册表项设置。 
说明如果提供了所有参数，则删除指定的注册表项设置。如果试图使用不存在的区域或注册表项设置上的 DeleteSetting 语句，则发生一个运行时错误。
DeleteSetting 语句示例
下列示例先使用 SaveSetting 语句，来建立Windows注册区（或 16位 Windows 平台的 ini 文件）里 MyApp应用程序的项目，然后使用 DeleteSetting 语句将之删除。因为没有指定 key参数，整个区段都会被删除掉，包括区段名称及其所有的机码（key）。' 在注册区中添加一些设置值。
SaveSetting appname := "MyApp", section := "Startup", _
            key := "Top", setting := 75 
SaveSetting "MyApp","Startup", "Left", 50 
' 删除区段及所有的设置值。
DeleteSetting "MyApp", "Startup" 

Answer 2

Thank you very much !