VB中如何打开一个注册表并且把数据写进去

Question

API注册表函数细节->>>键管理类：1、RegCloseKey()：关闭注册表键释放句柄。
    RegCloseKey(ByVal hKey As Long)
    参数：hKey--根键(或子键)句柄
    返回值：=0 成功     ≠0 失败2、RegCreateKey()：打开指定的注册表键，如果该键不存在则试图建立。
    RegCreateKey(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long)
    参数：hKey--根键句柄    lpSubKey--子键的名称或路径     
         phkResult--若执行成功则该参数返回子键的句柄
    返回值：=0 成功     ≠0 失败3、RegCreateKeyEx()：同RegCreateKey()。    RegCreateKeyEx(ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long)
4、RegDeleteKey()：删除注册表键，但不能删除根键。      
    RegDeleteKey(ByVal hKey As Long, ByVal lpSubKey As String)
    参数：hKey--键句柄     lpSubKey--子键名称或路径，如为""则删除hKey键
    返回值：=0 成功     ≠0 失败5、RegDeleteKeyEx()：同RegDeleteKeyEx()6、RegOpenKey()：获得注册表根键下子键的句柄。
    RegOpenKey(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long)
    参数：hKey--根键句柄    lpSubKey--子键的名称或路径
         phkResult--若执行成功则该参数返回子键的句柄
    返回值：=0 成功     ≠0 失败7、RegOpenKeyEx()：同RegOpenKey() 

Answer 1

  MicroSoft Visual Basic 中对于注册表的操作函数共有4个，它们是 SaveSetting, GetSetting, GetAllSettings, DeleteSettings等。 
SaveSetting   在 Windows 注册表中保存或建立应用程序项目 
语法   SaveSetting appname, section, key, setting 
参数   appname:字符串表达式，应用程序或工程的名称。 
            section:字符串表达式，包含区域名称，在该区域保存注册表项设置。 
            key:字符串表达式，包含将要保存的注册表项设置的名称。 
            setting:字符串表达式，包含 key 的设置值。  
函数示例   使用 SaveSetting 语句来建立"MyApp"应用程序的项目，然后使用DeleteSetting 语句将之删除。
    1、在注册区中添加一些设置值。
    SaveSetting appname := "MyApp", section := "Startup", key := "Top", setting := 75 
    SaveSetting "MyApp","Startup", "Left", 50 
    2、删除区段及所有的设置值。
    DeleteSetting "MyApp", "Startup"  
GetSetting   从 Windows 注册表中的应用程序项目返回注册表项设置值 
语法   GetSetting appname, section, key[, default] 
参数   appname:字符串表达式，包含应用程序或工程的名称。
            section:字符串表达式，包含区域名称，要求该区域有注册表项设置。 
            key:字符串表达式，返回注册表项设置的名称。 
            default:可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。 
说明   如果 GetSetting 无参数，则 GetSetting 返回 default 的值 
函数示例   使用 SaveSetting 语句建立 appname 应用程序的项目，然后使用 GetSetting 函数得到其中一项设置并显示出来。因为有传入参数 default，GetSetting 函数一定会有返回值。请注意，section 名称不能用 GetSetting 函数取得。最后，使用 DeleteSetting 语句将该应用程序项删除。
    1、定义保存 GetSetting 函数返回之二维数组数据的变量
    Dim MySettings As Variant
    2、在注册表中添加项目
    SaveSetting "MyApp","Startup", "Top", 75
    SaveSetting "MyApp","Startup", "Left", 50
    Debug.Print GetSetting(appname := "MyApp", section := "Startup", key := "Left", default := "25")
    3、删除注册表中项目
DeleteSetting "MyApp", "Startup" 
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 := "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" 
DeleteSetting   从应用程序项目里删除区域或注册表项设置 
语法   DeleteSetting appname, section[, key] 
参数   appname 必需的。字符串表达式，应用程序或工程的名称。 
            section 必要。字符串表达式，包含要删除注册表项设置的区域名称。如果只有 appname 和 section，则将指定的区域连同所有有关的注册表项设置都删除。 
            key 可选。字符串表达式，包含要删除的注册表项设置。  
说明   如果提供了所有参数，则删除指定的注册表项设置。如果试图使用不存在的区域或注册表项设置上的 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"  
      
    在 Visual Basic 中除了使用这四个内部语句或函数外，还可以调用 Windows API 函数来操作注册表。

Answer 2

去
http://www.csdn.net/expert/topic/336/336130.shtm
看看！！