图片索引 = 文件列.取图片 (文件列.现行选中项, )
禁止恢复菜单工具条 (选择 (文件列.取已选择表项数 () = 1, 假, 真), 图片索引)
文件名 = 文件列.取标题 (文件列.现行选中项, 0)
.判断开始 (文件列.取已选择表项数 () = 1)
.判断开始 (取对应图标 (1, 文件列.取表项数值 (文件列.现行选中项), 文件名, 文本) = 12)
解压加压文件.标题 = “解压文件(&A)...”
解压加压文件1.标题 = “解压到当前文件夹(&S)...”
解压加压文件2.标题 = “解压到<” + 取文本左边 (文件名, 倒找文本 (文件名, “.”, , 假) - 1) + “>目录(&Z)”
.默认
.如果真 (文本 = “文件夹”)
解压加压文件.标题 = “添加到压缩包(&A)...”
解压加压文件1.标题 = “添加到<” + 文件名 + “.rar>压缩包(&S)”
解压加压文件2.可视 = 假
.如果真结束
.判断结束
.判断 (文件列.取已选择表项数 () > 1)
.如果真 (取对应图标 (1, 文件列.取表项数值 (文件列.现行选中项), 文件名, 文本) ≠ 12)
文件名 = 取文本左边 (文件名, 倒找文本 (文件名, “.”, , 假) - 1)
.如果真结束
解压加压文件3.标题 = “添加到压缩包(&S)...”
解压加压文件4.标题 = “添加到<” + 文件名 + “.rar>压缩包(&Z)”
上一篇 易语言软件打包无需任何模块
下一篇 易语言zip解压结合进度条显示