易语言读取64位注册表源码

系统结构:读取32位注册表键值,读取64位注册表键值,API_Wow64DisableWow64FsRedirection,API_Wow64RevertWow64FsRedirection,API_RegOpenKeyEx,API_RegQueryValueEx,API_RegDisableReflectionKey,API_RegEnableReflectionKey,API_RegCloseKey,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 读取32位注册表键值
           |  |
           |  |------ 读取64位注册表键值
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_Wow64DisableWow64FsRedirection
           |  |
           |  |---[dll]------   API_Wow64RevertWow64FsRedirection
           |  |
           |  |---[dll]------   API_RegOpenKeyEx
           |  |
           |  |---[dll]------   API_RegQueryValueEx
           |  |
           |  |---[dll]------   API_RegDisableReflectionKey
           |  |
           |  |---[dll]------   API_RegEnableReflectionKey
           |  |
           |  |---[dll]------   API_RegCloseKey

调用的DLL命令:

.DLL命令 API_Wow64DisableWow64FsRedirection, 逻辑型, "kernel32", "Wow64DisableWow64FsRedirection"
    .参数 oldvalue, 整数型, 传址

.DLL命令 API_Wow64RevertWow64FsRedirection, 逻辑型, "kernel32", "Wow64RevertWow64FsRedirection"
    .参数 oldvalue, 整数型

.DLL命令 API_RegOpenKeyEx, 整数型, "advapi32.dll", "RegOpenKeyExA", , 打开一个现有的项。在win32下推荐使用这个函数　零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 一个已打开项的句柄，或指定一个标准项名
    .参数 lpSubKey, 文本型, , 欲打开注册表项的名字
    .参数 ulOptions, 整数型, , 未用，设为零
    .参数 samDesired, 整数型, , 带有前缀KEY_??的一个或多个常数。它们的组合描述了允许对这个项进行哪些操作
    .参数 phkResult, 整数型, , 用于装载打开项的名字的一个变量;

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

.DLL命令 API_RegDisableReflectionKey, 整数型, "advapi32.dll", "RegDisableReflectionKey"
    .参数 hBase, 整数型

.DLL命令 API_RegEnableReflectionKey, 整数型, "advapi32.dll", "RegEnableReflectionKey"
    .参数 hBase, 整数型

.DLL命令 API_RegCloseKey, 整数型, "advapi32.dll", "RegCloseKey", , 关闭系统注册表中的一个项（或键）　零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 要关闭的项;