易语言注册表项子键处理源码

系统结构:RegOpenKeyA,RegSetValueExA,RegQueryValueEx,RegCloseKey,RegCreateKeyA,RegDeleteKey,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _读子键值
           |  |
           |  |------ _写注册项值
           |  |
           |  |------ _删除注册项
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RegOpenKeyA
           |  |
           |  |---[dll]------   RegSetValueExA
           |  |
           |  |---[dll]------   RegQueryValueEx
           |  |
           |  |---[dll]------   RegCloseKey
           |  |
           |  |---[dll]------   RegCreateKeyA
           |  |
           |  |---[dll]------   RegDeleteKey

调用的DLL命令:

.DLL命令 RegOpenKeyA, 整数型
    .参数 hKey, 整数型, , 父键句柄(根目录)
    .参数 lpSubKey, 文本型, , 全路径注册项名
    .参数 phkResult, 整数型, 传址

.DLL命令 RegSetValueExA, 整数型, , "RegSetValueExA", , 写注册表项' 1文本；2可扩充字符；3字节集；4数值；7多字符；
    .参数 hKey, 整数型
    .参数 lpValueName, 文本型
    .参数 Reserved, 整数型
    .参数 dwType, 整数型
    .参数 lpData, 字节集
    .参数 cbData, 整数型

.DLL命令 RegQueryValueEx, 整数型, "advapi32.dll", "RegQueryValueExA", , 获取一个项的设置值  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 一个已打开项的句柄，或者指定一个标准项名
    .参数 lpValueName, 文本型, , 要获取值的名字
    .参数 lpReserved, 整数型, , 未用，设为零
    .参数 lpType, 整数型, 传址, 用于装载取回数据类型的一个变量
    .参数 lpData, 字节集, 传址, 用于装载指定值的一个缓冲区
    .参数 lpcbData, 整数型, 传址, 用于装载lpData缓冲区长度的一个变量。一旦返回，它会设为实际装载到缓冲区的字节数;

.DLL命令 RegCloseKey, , , "RegCloseKey"
    .参数 hKey, 整数型

.DLL命令 RegCreateKeyA, 整数型, "advapi32.dll", "RegCreateKeyA", , 在指定的项下创建一个新项。如指定的项已经存在，那么函数会打开现有的项  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 要打开项的句柄，或者一个标准项名
    .参数 lpSubKey, 文本型, , 欲创建的新子项。可同时创建多个项，只需用反斜杠将它们分隔开即可。例如level1\level2\newkey
    .参数 phkResult, 整数型, 传址, 指定一个变量，用于装载新子项的句柄;

.DLL命令 RegDeleteKey, 整数型, "advapi32.dll", "RegDeleteKeyA", , 删除现有项下方一个指定的子项  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 一个已打开项的句柄，或者标准项名之一
    .参数 lpSubKey, 文本型, , 要删除项的名字。这个项的所有子项也会删除;