【首发】调用易语言支持库里的命令，指针操纵（纯核心库，By超级用户） - 精易论坛

子程序名	返回值类型	公开	备注
取指定函数地址_入口	整数型
参数名	类型	参考	可空	数组	备注
支持库信息入口	整数型				GetNewInf 函数地址
命令索引	整数型

变量名	类型	静态	数组	备注
ret	整数型

如果真 (支持库信息入口＞ 0)

ret ＝ Call (支持库信息入口, , ) ' 取得支持库信息指针

ret ＝取指定函数地址_指针 (ret, 命令索引)
返回 (ret)

子程序名	返回值类型	公开	备注
取指定函数地址_指针	整数型
参数名	类型	参考	可空	数组	备注
支持库信息指针	整数型
命令索引	整数型

变量名	类型	静态	数组	备注
ret	整数型

如果真 (支持库信息指针＞ 0)

ret ＝支持库信息指针 ' 取得支持库信息指针

ret ＝指针到整数 (ret ＋ 4 �� (28 － 1)) ' 第 28 个成员就是第一个命令的地址

ret ＝指针到整数 (ret ＋ 4 �� (命令索引－ 1))
返回 (ret)

子程序名	返回值类型	公开	备注
取运行目录_外部	文本型

变量名	类型	静态	数组	备注
句柄	整数型
类_库操作	类_库操作
返回值	数据结构
p	类_指针
结果	文本型

句柄＝类_库操作.取核心库模块句柄 ()
句柄＝ GetProcAddress (句柄, “GetNewInf”)
句柄＝类_库操作.取指定函数地址_入口 (句柄, 66) ' 66是取运行目录在支持库中命令的索引

子程序名	返回值类型	公开	备注
易库命令子程序基本结构
参数名	类型	参考	可空	数组	备注
返回值指针	整数型
参数数目	整数型
首参数指针	整数型

窗口程序集名	保留	保留	备注
类_指针
变量名	类型	数组	备注
集_原地址	整数型	0
集_目的地址	整数型	0
集_自动还原	逻辑型
集_已还原	逻辑型

子程序名	返回值类型	公开	备注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

集_自动还原＝真

子程序名	返回值类型	公开	备注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

如果真 (集_自动还原且取反 (集_已还原))

还原 ()

子程序名	返回值类型	公开	备注
自动还原	逻辑型
参数名	类型	参考	可空	数组	备注
值	逻辑型

如果真 (取反 (是否为空 (值)))

集_自动还原＝值
返回 (集_自动还原)

子程序名	返回值类型	公开	备注
到数据
参数名	类型	参考	可空	数组	备注
源数据指针	整数型
目的变量地址	整数型

加入成员 (集_原地址, 指针到数据 (源数据指针, 目的变量地址))
加入成员 (集_目的地址, 目的变量地址)
集_已还原＝假

子程序名	返回值类型	公开	备注
还原

变量名	类型	静态	数组	备注
n1	整数型

计次循环首 (取数组成员数 (集_原地址), n1)

释放指针数据 (集_目的地址 [n1], 集_原地址 [n1])

计次循环尾 ()
集_已还原＝真

子程序名	返回值类型	公开	备注
取指针_通用型	整数型
参数名	类型	参考	可空	数组	备注
变量	通用型

置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备注
指针到数据	整数型		返回值为目的变量原数据地址
参数名	类型	参考	可空	数组	备注
源数据指针	整数型
目的变量地址	整数型

置入代码 ({ 139, 69, 12, 255, 48, 255, 117, 8, 143, 0, 88, 201, 194, 8, 0 })
返回 (0)

子程序名	返回值类型	公开	备注
释放指针数据
参数名	类型	参考	可空	数组	备注
变量地址	整数型
原数据地址	整数型

置入代码 ({ 139, 69, 8, 255, 117, 12, 143, 0 })

.版本 2<br />
<br />
.程序集 类_指针<br />
.程序集变量 集_原地址, 整数型, , "0"<br />
.程序集变量 集_目的地址, 整数型, , "0"<br />
.程序集变量 集_自动还原, 逻辑型<br />
.程序集变量 集_已还原, 逻辑型<br />
<br />
.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br />
<br />
集_自动还原 ＝ 真<br />
<br />
.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br />
<br />
.如果真 (集_自动还原 且 取反 (集_已还原))<br />
    还原 ()<br />
.如果真结束<br />
<br />
<br />
.子程序 自动还原, 逻辑型, 公开<br />
.参数 值, 逻辑型, 可空<br />
<br />
.如果真 (取反 (是否为空 (值)))<br />
    集_自动还原 ＝ 值<br />
.如果真结束<br />
返回 (集_自动还原)<br />
<br />
.子程序 到数据, , 公开<br />
.参数 源数据指针, 整数型<br />
.参数 目的变量地址, 整数型<br />
<br />
加入成员 (集_原地址, 指针到数据 (源数据指针, 目的变量地址))<br />
加入成员 (集_目的地址, 目的变量地址)<br />
集_已还原 ＝ 假<br />
<br />
.子程序 还原, , 公开<br />
.局部变量 n1, 整数型<br />
<br />
.计次循环首 (取数组成员数 (集_原地址), n1)<br />
    释放指针数据 (集_目的地址 [n1], 集_原地址 [n1])<br />
.计次循环尾 ()<br />
集_已还原 ＝ 真<br />
.版本 2<br />
<br />
.子程序 取指针_通用型, 整数型<br />
.参数 变量, 通用型<br />
<br />
置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })<br />
返回 (0)<br />
.版本 2<br />
<br />
.子程序 指针到数据, 整数型, , 返回值为目的变量原数据地址<br />
.参数 源数据指针, 整数型<br />
.参数 目的变量地址, 整数型<br />
<br />
置入代码 ({ 139, 69, 12, 255, 48, 255, 117, 8, 143, 0, 88, 201, 194, 8, 0 })<br />
返回 (0)<br />
<br />
.子程序 释放指针数据<br />
.参数 变量地址, 整数型<br />
.参数 原数据地址, 整数型<br />
<br />
置入代码 ({ 139, 69, 8, 255, 117, 12, 143, 0 })