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
