SUI自绘图片RAR压缩包合成一个文件

易语言 2020-07-19 18:04:32

SUI自绘图片RAR压缩包合成一个文件

用法:选择一张图片,再选择一个rar文件,然后绑定合成,会在软件的目录下生成一张图片,打开后跟以前图片一样,但是把文件名改为rar格式时,又变成了rar压缩包,可以打开这个压缩包看到里面的东西。
注意:生成的新图片在此软件的目录下,所以先解压出来,不然会找不到。

.判断 (hID = 按钮)
.如果 (取数组成员数 (图片文件) ≠ 0)
.如果 (取数组成员数 (rar文件) ≠ 0)
CMD命令 (“copy /b ” + 图片文件 [1] + “+” + rar文件 [1] + “ ” + 取运行目录 () + “\fuli.jpg”)
SUI_window.Control_Button (图片按钮, , , “选择”, 真)
SUI_window.Control_Button (rar按钮, , , “选择”, 真)
重定义数组 (图片文件, 假, 0)
重定义数组 (rar文件, 假, 0)
SUI_MsgBox.Popup (SUI_window.hWnd (), “已经生成在当前目录下,文件名为” + #引号 + “fuli.jpg” + #引号 + “!”, #信息图标 + #确认钮, “成功!”)

.否则
SUI_MsgBox.Popup (SUI_window.hWnd (), “没有选择rar文件!”, #警告图标 + #确认钮, “错误!”)
.如果结束

.否则
SUI_MsgBox.Popup (SUI_window.hWnd (), “没有选择图片文件!”, #警告图标 + #确认钮, “错误!”)