易语言注册表读写增强模块源码

系统结构:取根目录,枚举子项,枚举子键值,新读注册项,新写注册项,RegOpenKeyA,RegEnumKeyA,RegEnumValueA,RegQueryValueExA,RegQueryValueExN,RegSetValueExA,RegSetValueExN,RegCloseKey,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======注册表读写增强
           |  |
           |  |------ 取根目录
           |  |
           |  |------ 枚举子项
           |  |
           |  |------ 枚举子键值
           |  |
           |  |------ 新读注册项
           |  |
           |  |------ 新写注册项
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RegOpenKeyA
           |  |
           |  |---[dll]------   RegEnumKeyA
           |  |
           |  |---[dll]------   RegEnumValueA
           |  |
           |  |---[dll]------   RegQueryValueExA
           |  |
           |  |---[dll]------   RegQueryValueExN
           |  |
           |  |---[dll]------   RegSetValueExA
           |  |
           |  |---[dll]------   RegSetValueExN
           |  |
           |  |---[dll]------   RegCloseKey

调用的DLL命令:

.DLL命令 RegOpenKeyA, 整数型, "advapi32.dll", "RegOpenKeyA", , 打开一个现有的注册表项  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 一个已打开项的句柄，或指定一个标准项名
    .参数 lpSubKey, 文本型, , 要打开的项名
    .参数 phkResult, 整数型, 传址, 指定一个变量，用于装载（保存）打开注册表项的一个句柄;

.DLL命令 RegEnumKeyA, 整数型, , "RegEnumKeyA"
    .参数 hKey, 整数型
    .参数 dwIndex, 整数型
    .参数 lpName, 文本型, 传址
    .参数 cbName, 整数型

.DLL命令 RegEnumValueA, 整数型, , "RegEnumValueA", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 句柄, 整数型, , 一个已打开项的句柄，或者指定一个标准项名
    .参数 表项索引, 整数型, , 欲获取值的索引。注意第一个值的索引编号为零
    .参数 子键名, 文本型, , 用于装载位于指定索引处值名的一个缓冲区
    .参数 子键长度, 整数型, 传址, 用于装载lpValueName缓冲区长度的一个变量。一旦返回，它会设为实际载入缓冲区的字符数量
    .参数 lpReserved, 整数型, , 未用设为零
    .参数 键值类型, 整数型, 传址, 值的类型，用于装载值的类型代码的变量
    .参数 键值数据, 字节集, 传址, 用于装载值数据的一个缓冲区
    .参数 键值缓寸, 整数型, 传址, 用于装载lpData缓冲区长度的一个变量。一旦返回，它会设为实际载入缓冲区的字符数量

.DLL命令 RegQueryValueExA, 整数型, , "RegQueryValueExA", , 取注册表项
    .参数 hKey, 整数型
    .参数 lpValueName, 文本型
    .参数 lpReserved, 整数型
    .参数 lpType, 整数型, 传址
    .参数 lpData, 字节集, 传址
    .参数 lpcbData, 整数型, 传址

.DLL命令 RegQueryValueExN, 整数型, , "RegQueryValueExA", , 取注册表项
    .参数 hKey, 整数型
    .参数 lpValueName, 文本型
    .参数 lpReserved, 整数型
    .参数 lpType, 整数型, 传址
    .参数 lpData, 整数型, 传址
    .参数 lpcbData, 整数型, 传址

.DLL命令 RegSetValueExA, 整数型, , "RegSetValueExA", , 写注册表项
    .参数 hKey, 整数型
    .参数 lpValueName, 文本型
    .参数 Reserved, 整数型
    .参数 dwType, 整数型
    .参数 lpData, 字节集, 传址
    .参数 cbData, 整数型

.DLL命令 RegSetValueExN, 整数型, , "RegSetValueExA", , 写注册表项
    .参数 hKey, 整数型
    .参数 lpValueName, 文本型
    .参数 Reserved, 整数型
    .参数 dwType, 整数型
    .参数 lpData, 整数型, 传址
    .参数 cbData, 整数型

.DLL命令 RegCloseKey, 整数型, , "RegCloseKey", , 关闭注册项
    .参数 hkey, 整数型