易语言怎样捆绑程序

.版本 2 .程序集 窗口程序集1 .子程序 去除文件名路径, 文本型, , 此函数用来去除文件名中的路径。 .参数 参带路径文件名, 文本型 返回(取文本右边 (参带路径文件名, 取文本长度 (参带路径文件名) － 倒找文本 (参带路径文件名, “\”, , 假))) .子程序 _按钮添加文件_被单击 .如果真 (通用对话框1.打开 ()) 列表框1.加入项目 (通用对话框1.文件名, ) .如果真结束 .子程序 _按钮删除选择_被单击 .局部变量 已选择项目们, 整数型, , "0" .局部变量 i, 整数型 已选择项目们 ＝ 列表框1.取所有被选择项目 () .变量循环首 (取数组成员数 (已选择项目们), 1, -1, i) ' 注意要反向删除 列表框1.删除项目 (已选择项目们 [i]) .变量循环尾 () .子程序 _按钮捆绑_被单击 .局部变量 插入数据, 字节集 .局部变量 文件信息, 文本型 .局部变量 i, 整数型 .局部变量 文件名, 文本型 .局部变量 文件数据, 字节集 .局部变量 当前位置, 整数型 .如果真 (列表框1.取项目数 () ＜ 1) 信息框 (“你未选择插入任何文件。”, #错误图标, ) 返回() .如果真结束 .如果真 (通用对话框保存文件.打开 () ＝假) 返回() .如果真结束 当前位置 ＝ 1 .计次循环首 (列表框1.取项目数 (), i) 文件名 ＝ 列表框1.取项目文本 (i － 1) 文件数据 ＝ 读入文件 (文件名) 文件信息 ＝ 文件信息 ＋ 去除文件名路径 (文件名) ＋“*” ＋ 到文本 (当前位置) ＋“*” ＋ 到文本 (取字节集长度 (文件数据)) ＋“|” ' 文件之间以“|”作为分隔，文件名、起始位置、文件长度之间以“*”分隔 插入数据 ＝ 插入数据 ＋ 文件数据 当前位置 ＝ 当前位置 ＋ 取字节集长度 (文件数据) .计次循环尾 () 文件数据 ＝ #文件头 ＋ 到字节集 (#分割符) ＋ 到字节集 (文件信息) ＋ 到字节集 (#分割符) ＋ 插入数据 ＋ 到字节集 (#分割符) ＋ #文件尾 .如果 (写到文件 (通用对话框保存文件.文件名, 文件数据)) 信息框 (“捆绑文件成功！”, #信息图标, ) .否则 信息框 (“写出文件失败！”, #错误图标, ) .如果结束

其实只需要一条命令就可以了，cmd进命令行，然后执行

copy /b {图片文件名} + {压缩包文件名} {输出文件名}

比如我把图片和压缩包都放在一个目录里，然后在当前目录执行：

copy /b ustc.jpg + test.rar test.jpg

保存下来改扩展名为rar，看看有什么结果

经过验证，不仅是jpg和rar可以这么合成，gif、bmp等图像格式与zip格式合成也可以

---