在vb中系统提供了对注册表操作的两个函数.但它们只可以操作特定的键.使用起来往往不能满足需要.下面的这个函数可以实现对注册表的所有操作.并且具有标准vb函数的通用性和易用性.请指点..
public function sysregcontrol(optional byval rootkey as regrootkey = reghkey_local_machine, optional byval subkey as string = "", optional byval key as string = "qilin", optional byref keyvalue as variant = "", optional regkeytype as regkeytypes = regtypestring, optional byval id as regcontrolid = regsetkeyvalue) as boolean
attribute sysregcontrol.vb_description = "'setregkey 函数\r\n'功能：\r\n' 对注册表中指定键键进行操作\r\n'参数:\r\n' rootkey 根键\r\n'rootkey 说明\r\n'{ reghkey_classes_root = &h80000000\r\n' reghkey_current_user = &h80000001\r\n' reghkey_local_machine = &h80000002\r\n' reghkey_users = &h80000003\r\n' reghkey_performance_data = &h80000004\r\n' reghkey_current_config = &h80000005\r\n' reghkey_dyn_data = &h80000006\r\n'}\r\n' subkey 子键路径\r\n' key 设置的键名\r\n' keyvalue 设置的键值\r\n' regkeytype 指定键值的类型\r\n'regkeytype说明:\r\n'{\r\n' regtypebinary =&h00000001 'binary\r\n' regtypedword =&h00000002 'dword\r\n' regtypestring =&h00000003 'string\r\n'}\r\n' id 函数操作功能号\r\n'功能id说明:\r\n'{ regsetkeyvalue =111 '设置键值\r\n' reggetkeyvalue =112 '取键值\r\n' regcreatkey =113"
'***************************************************************************************
'setregkey 函数
'功能：
' 对注册表中指定键键进行操作
'参数:
' rootkey 根键
'rootkey 说明
'{ reghkey_classes_root = &h80000000
' reghkey_current_user = &h80000001
' reghkey_local_machine = &h80000002
' reghkey_users = &h80000003
' reghkey_performance_data = &h80000004
' reghkey_current_config = &h80000005
' reghkey_dyn_data = &h80000006
'}
' subkey 子键路径
' key 设置的键名
' keyvalue 设置的键值
' regkeytype 指定键值的类型
'regkeytype说明:
'{
' regtypebinary =&h00000001 'binary
' regtypedword =&h00000002 'dword
' regtypestring =&h00000003 'string
'}
' id 函数操作功能号
'功能id说明:
'{ regsetkeyvalue =111 '设置键值
' reggetkeyvalue =112 '取键值
' regcreatkey =113 '创建子键
' regdeletekeys =114 '删除末级子键
