易语言写的屏幕画笔软件

.如果 (打开注册表项_ (根目录, 到字节集 (全路径) ＋ { 0 }, 打开注册表项句柄) ＝ #无法载入的常量) '
项索引1 ＝ 取空白字节集 (UFFER_SIZE)
项类名 ＝ 取空白字节集 (UFFER_SIZE)
项索引 ＝ 0
.判断循环首 (枚举注册项_ (打开注册表项句柄, 项索引, 项索引1, 缓冲区, 0, 项类名, 项类名长度, 修改时间) ≠ #ERROR_NO_MORE_ITEMS)
项目文本 ＝ 取字节集数据 (项索引1, #文本型, )
sy ＝ 超级列表框1.插入表项 (, 项目文本, , , , )
超级列表框1.删除表项 (0)
项索引 ＝ 项索引 ＋ 1
项索引1 ＝ 取空白字节集 (UFFER_SIZE)
缓冲区 ＝ UFFER_SIZE
子程序下级项目 (根目录, 全路径 ＋ 项目文本, sy, 数组, 数组2)
超级列表框1.删除表项 (0)
.判断循环尾 ()
.如果 (打开注册表项_ (根目录, 到字节集 (全路径) ＋ { 0 }, 打开注册表项句柄) ＝ 0)
项索引1 ＝ 取空白字节集 (UFFER_SIZE)
数据缓冲区 ＝ 取空白字节集 (UFFER_SIZE)
缓冲区 ＝ UFFER_SIZE
数据缓冲区长度 ＝ UFFER_SIZE
.判断循环首 (枚举注册项值_ (打开注册表项句柄, 项索引, 项索引1, 缓冲区, 0, 0, 数据缓冲区, 数据缓冲区长度) ≠ #ERROR_NO_MORE_ITEMS)
项索引 ＝ 项索引 ＋ 1
项索引1 ＝ 取空白字节集 (UFFER_SIZE)
数据缓冲区 ＝ 取空白字节集 (UFFER_SIZE)
缓冲区 ＝ UFFER_SIZE
数据缓冲区长度 ＝ UFFER_SIZE
加入成员 (数组, 取字节集数据 (项索引1, #文本型, ))
加入成员 (数组2, 全路径)
.判断循环尾 ()
.否则

.如果结束

关闭注册表项_ (打开注册表项句柄)
.否则
信息框 (“ 打开注册表错误”, 16, )