查看完整版本: 如何取得与设定、删除Registry内的值

如何取得与设定、删除Registry内的值

　　如何取得与设定、删除Registry内的值

作者: 王国荣　

　　程式启动时，会在 "HKEY_LOCAL_MACHINEkjRegistry" Subkey 底下写入：(此时
会呼叫 SetDefaultValue 及 SetValue 函数)

        资料类型        名称            资料
        =========       ==============  ================================
                        (预设值)        kj Registry Master
        REG_SZ          StringData      这是字串
        REG_MULTI_SZ    MultiString     字串一(0)  字串二 Chr(0)  Chr(0)
        REG_DWORD       LongData        99999
        REG_BINARY      BinaryData      11 22 33 44 AA BB CC DD

　　接着当您按下「显示所有 Value 时」(command1)时，程式会读出来所有 Value 并且
　　显示在ListBox 之中(此时会呼叫 GetDefaultValue、GetValueByIndex 函数)。

　　最後当程式结束时，则会删除以上所有的 Value(此时会呼叫 GetValueByIndex 函数
及 RegDeleteValue API 函数)。

注释：请放3个CommandBox一个ListBox於form上

Option Explicit
注释：
** Sub Form_Load()
    Dim hKey As Long, ret As Long

    ret = SetDefaultValue(HKEY_LOCAL_MACHINE, "SOFTWAREkjRegistry", _
                       "kj Registry Master")
    ret = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWAREkjRegistry", hKey)

    ret = SetValue(hKey, "StringData", REG_SZ, "这是字串")
    ret = SetValue(hKey, "MultiString", REG_MULTI_SZ, "字串一"   Chr(0) _
            "字串二"   Chr(0))
    ret = SetValue(hKey, "LongData", REG_DWORD, 99999)
    ret = SetValue(hKey, "BinaryData", REG_BINARY, _
                    Array(