|
nbsp; End If
''''----------------------------------------------------------------------------------------
Case regTypeString ''''=&H00000003 ''''String
''''调用实例:
''''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] 下一页
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
