|
sp; 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 Then ''''if the key was created then
rtn = RegCloseKey(hKey) ''''close the key
SysRegControl = False
Exit Function
End If
''''=========================================================================================
Case regDeleteKeys ''''=114 ''''删除末级子键同regDelAllKey
''''此处Key指定为SubKey下一级子键即被删除子键,SubKey可以为"",key若为"",则删除SubKey子键
''''调用示例:
''''SysRegControl regHKEY_LOCAL_MACHINE, "", "jadgekylin", "", regTypeBinary, regDeleteKeys
''''SysRegControl regHKEY_LOCAL_MACHINE, "jadgekylin", "", "", regTypeBinary, regDeleteKeys
''''SysRegControl regHKEY_LOCAL_MACHINE, "" , "jadgekylin", "", regTypeBinary, regDeleteKeys
''''=========================================================================================
rtn = RegOpenKeyEx(RootKey, SubKey, 0, KEY_WRITE, hKey) ''''open the key
If rtn = ERROR_SUCCESS Then ''''if the key could be opened then
rtn = RegDeleteKey(hKey, Key) ''''delete the key
Else
rtn = RegCloseKey(hKey) ''''close the key
SysRegControl = False
Exit Function
End If
''''=========================================================================================
Case regDelAllKey ''''=115 ''''删除非末级子键,暂时同RegDeleteKeys
''''=========================================================================================
上一页 [1] [2] [3] 下一页
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
