易语言取浏览器地址内容源码

系统结构:枚举注册表,打开表项,关闭键句柄,枚举子键,枚举键值,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 枚举注册表
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开表项
           |  |
           |  |---[dll]------   关闭键句柄
           |  |
           |  |---[dll]------   枚举子键
           |  |
           |  |---[dll]------   枚举键值

调用的DLL命令:

.DLL命令 打开表项, 整数型, , "RegOpenKeyA", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 父键句柄, 整数型, , 一个已打开项的句柄，或指定一个标准项名
    .参数 表项名, 文本型, , 欲打开注册表项的名字
    .参数 键句柄, 整数型, 传址, 用于装载打开项的名字的一个变量

.DLL命令 关闭键句柄, 整数型, , "RegCloseKey", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 句柄, 整数型, , 要关闭的项的句柄

.DLL命令 枚举子键, 整数型, , "RegEnumKeyA", , 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码。在Win32环境中应使用RegEnumKeyEx.用RegQueryInfoKey判断容纳最长那个项所需的缓冲区长度
    .参数 句柄, 整数型, , 一个已打开项的句柄，或者指定一个标准项名
    .参数 表项索引, 整数型, , 欲获取的子项的索引。第一个子项的索引编号为零
    .参数 子键名, 文本型, , 用于装载指定索引处项名的一个缓冲区
    .参数 子键长度, 整数型, 传址, lpName(子键名)缓冲区的长度

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