操作注册表
时 间:2004-11-20 00:00:00
作 者:黄海 ID:32 城市:苏州
摘 要:操作注册表
正 文:
Option ExplicitDeclare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As LongDeclare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As LongDeclare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LongDeclare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongDeclare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As Long, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
Public Const SYNCHRONIZE = &H100000Public Const READ_CONTROL = &H20000Public Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Public Const KEY_QUERY_VALUE = &H1Public Const KEY_ENUMERATE_SUB_KEYS = &H8Public Const KEY_NOTIFY = &H10Public Const KEY_SET_VALUE = &H2Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_READ = ((READ_CONTROL Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Public Const REG_SZ = 1Public Const REG_BINARY = 3Public Const REG_DWORD = 4
Public Const HKEY_LOCAL_MACHINE = &H80000002Public Const REG_OPENED_EXISTING_KEY = &H2__________________________________________________
'在需要时建立主键Function CreateRegistryKey(ByVal hkey As Long, ByVal KeyName As String) As BooleanDim Handle As Long, Disposition As LongIf RegCreateKeyEx(hkey, KeyName, 0, 0, 0, 0, 0, Handle, Disposition) ThenMsgBox "不能建立该键", , "注意"Else' Return True if the key already existed.If Disposition = REG_OPENED_EXISTING_KEY Then CreateRegistryKey = True' Close the key.RegCloseKey HandleEnd IfEnd Function
'读取注册表的键值Function GetRegistryValue(ByVal hkey As Long, ByVal KeyName As String, _ByVal ValueName As String, ByVal KeyType As Integer, _Optional DefaultValue As Variant = Empty) As Variant
Dim Handle As Long, resLong As LongDim resString As String, length As LongDim resBinary() As Byte
' Prepare the default result.GetRegistryValue = DefaultValue' Open the key, exit if not found.If RegOpenKeyEx(hkey, KeyName, 0, KEY_READ, Handle) Then Exit Function
Select Case KeyTypeCase REG_DWORD' Read the value, use the default if not found.If RegQueryValueEx(Handle, ValueName, 0, REG_DWORD, _resLong, 4) = 0 ThenGetRegistryValue = resLongEnd IfCase REG_SZlength = 1024: resString = Space$(length)If RegQueryValueEx(Handle, ValueName, 0, REG_SZ, _ByVal resString, length) = 0 Then' If value is found, trim characters in excess.GetRegistryValue = Left$(resString, length - 1)End IfCase REG_BINARYlength = 4096ReDim resBinary(length - 1) As ByteIf RegQueryValueEx(Handle, ValueName, 0, REG_BINARY, _resBinary(0), length) = 0 ThenReDim Preserve resBinary(length - 1) As ByteGetRegistryValue = resBinary()End IfCase ElseMsgBox "不支持的类型", , "注意"End Select
RegCloseKey HandleEnd Function
'设置注册表的键值' Write / Create a Registry value.' Use KeyName = "" for the default value.' Supports only DWORD, SZ, and BINARY value types.
Sub SetRegistryValue(ByVal hkey As Long, ByVal KeyName As String, ByVal ValueName As String, ByVal KeyType As Integer, value As Variant)Dim Handle As Long, lngValue As Long, Disposition As LongDim strValue As StringDim binValue() As Byte, le
Access软件网官方交流QQ群 (群号:54525238)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)