.如果 (取字节集长度 (控件.鼠标指针) ≤ 4)
文本 = 文本 + 字节集到十进制文本 (控件.鼠标指针)
.否则
i = 控件.父控件代号
文件名 = 控件.名称 + “.鼠标指针.cur”
.判断循环首 (i ≠ 0)
n = 代号寻找对象下标 (i)
.如果真 (n = -1)
跳出循环 ()
.如果真结束
文件名 = 类_对象 [n].名称 + “.” + 文件名
i = 类_对象 [n].父控件代号
.判断循环尾 ()
写到文件 (类_保存目录 + 文件名, 取字节集右边 (控件.鼠标指针, 取字节集长度 (控件.鼠标指针) - 4))
文本 = 文本 + 类_信息前缀 + “已保存到 ” + 文件名
.如果结束
文本 = 文本 + #换行符 + #换行符
.如果真 (父控件代号 = 0 或 代号取对象类型 (控件.代号) = #代号_窗口资源)
返回 (文本)
.如果真结束
.计次循环首 (取数组成员数 (控件.包含对象), i)
n = 代号寻找对象下标 (控件.包含对象 [i])
.如果真 (n ≠ -1)
文本 = 文本 + 窗口控件到文本 (类_对象 [n], tab文本 + 字符 (#Tab键), 控件.代号)
.如果真结束
.计次循环尾 ()
上一篇 简单方法屏蔽不让打开任务管理器