''''调用实例:
''''SysRegControl regHKEY_LOCAL_MACHINE, "jadgekylin\jklpos", "pos", "1", regTypeString, regSetKeyValue
''''----------------------------------------------------------------------------------------

                  If VarType(KeyValue) <> vbString Then  ''''参数不合法
                    rtn = ERROR_SUCCESS + 1
                    ''''exit select
                  Else
                rtn = RegSetValueEx(hKey, Key, 0, REG_SZ, ByVal KeyValue, Len(KeyValue)) ''''write the value
                  End If
''''----------------------------------------------------------------------------------------
            End Select
''''}
            If Not rtn = ERROR_SUCCESS Then   ''''if the was an error writting the value
                rtn = RegCloseKey(hKey)
                SysRegControl = False ''''调用失败
                Exit Function
            End If
            rtn = RegCloseKey(hKey) ''''close the key

            End If ''''rtn = ERROR_SUCCESS
''''=========================================================================================
        Case regGetKeyValue ''''=112   ''''取键值
''''=========================================================================================
            rtn = RegOpenKeyEx(RootKey, SubKey, 0, KEY_READ, hKey)
            If rtn = ERROR_SUCCESS Then ''''if the key could be opened
''''{

            Select Case regKeyType
''''----------------------------------------------------------------------------------------
            Case regTypeBinary      ''''=&H00000001        ''''Binary
''''KeyValue作为传值变量获得键值,调用示例:
''''Dim a As String
''''SysRegControl regHKEY_LOCAL_MACHINE, "jadgekylin\jklpos", "pos", a, regTypeBinary, regGetKeyValue
''''----------------------------------------------------------------------------------------
                  rtn = RegQueryValueEx(hKey, Key, 0, REG_BINARY, 0, lBufferSize) ''''get the value from the registry
                 sBuffer = Space(lBufferSize)
                 rtn = RegQueryValueEx(hKey, Key, 0, REG_BINARY, sBuffer, lBufferSize) ''''get the value from the registry
            If Not rtn = ERROR_SUCCESS Then   ''''if the was an error writting the value
                rtn = RegCloseKey(hKey)
                SysRegControl = False ''''调用失败
                Exit Function
            Else
                KeyValue = sBuffer
               
            End If
            rtn = RegCloseKey(hKey) ''''close the key

''''----------------------------------------------------------------------------------------
            Case regTypeDword   ''''=&H00000002    ''''DWORD
''''
''''KeyValue作为传值变量获得键值,调用示例:
''''Dim a As Long
''''SysRegControl regHKEY_LOCAL_MACHINE, "jadgekylin\jklpos", "pos", a, regTypeString, regGetKeyValue
''''----------------------------------------------------------------------------------------
                  rtn = RegQueryValueExA(hKey, Key, 0, REG_DWORD, lBuffer, 4) ''''get the value from the registry
            If Not rtn = ERROR_SUCCESS Then   ''''if the was an error writting the value
                rtn = RegCloseKey(hKey)
                SysRegControl = False ''''调用失败
                Exit Function
            Else
                KeyValue = lBuffer
            End If
            rtn = RegCloseKey(hKey) ''''close the key

''''----------------------------------------------------------------------------------------
            Case regTypeString  ''''=&H00000003    ''''String

''''KeyValue作为传值变量获得键值,调用示例:
''''Dim a As String
''''SysRegControl regHKEY_LOCAL_MACHINE, "jadgekylin\jklpos", "pos1", a, regTypeString, regGetKeyValue
''''----------------------------------------------------------------------------------------
                  sBuffer = Space(255)     ''''make a buffer
                      lBufferSize = Len(sBuffer)
                  rtn = RegQueryValueEx(hKey, Key, 0, REG_SZ, sBuffer, lBufferSize) ''''get the value from the registry
                  sBuffer = Trim(sBuffer)
                      sBuffer = Left(sBuffer, Len(sBuffer) - 1) ''''return the value to the user
            If Not rtn = ERROR_SUCCESS Then   ''''if the was an error writting the value
                rtn = RegCloseKey(hKey)
                SysRegControl = False ''''调用失败
                Exit Function
            Else
                KeyValue = sBuffer
               
            End If
            rtn = RegCloseKey(hKey) ''''close the key

''''----------------------------------------------------------------------------------------

            End Select
''''}
   
            End If ''''rtn = ERROR_SUCCESS

''''=========================================================================================
        Case regCreatKey    ''''=113   ''''创建子键

''''SubKey 是创建对象,Key,KeyValue为保留字,调用示例:
''''SysRegControl regHKEY_LOCAL_MACHINE, "jadgekylin\jklpos\pos", "", 0, regTypeDword, regCreatKey
''''=========================================================================================

           rtn = RegCreateKey(RootKey, SubKey, hKey) ''''create the key
           If Not rtn = ERROR_SUCCESS

上一页  [1] [2] [3]  下一页