PKG资源编辑提取工具

通用对话框1.初始目录 ＝ 当前目录
.如果 (通用对话框1.打开 ())
编辑框_路径.内容 ＝ 通用对话框1.文件名
.否则
返回 ()
.如果结束
h ＝ 打开文件 (编辑框_路径.内容, , )
移动读写位置 (h, #文件首, 4)
索引数量 ＝ 取字节集数据 (读入字节集 (h, 4), #整数型, )
索引位置 ＝ 取字节集数据 (读入字节集 (h, 4), #整数型, )
索引大小 ＝ 取字节集数据 (读入字节集 (h, 4), #整数型, )
移动读写位置 (h, #文件首, 索引位置)
' 索引数据 ＝ 读入字节集 (h, 索引大小)
列表框1.清空 ()
重定义数组 (信息组, 假, 索引数量)
.计次循环首 (索引数量, a)
名称长度 ＝ 取字节集数据 (读入字节集 (h, 2), #整数型, )
信息组 [a].路径 ＝ 取字节集数据 (读入字节集 (h, 名称长度), #文本型, )
移动读写位置 (h, #现行位置, 4)
信息组 [a].偏移 ＝ 取字节集数据 (读入字节集 (h, 4), #整数型, )
信息组 [a].原大小 ＝ 取字节集数据 (读入字节集 (h, 4), #整数型, )
信息组 [a].大小 ＝ 取字节集数据 (读入字节集 (h, 4), #整数型, )
列表框1.加入项目 (信息组 [a].路径, a)
处理事件 ()
.计次循环尾 ()