.版本 2 .支持库 shell .支持库 edroptarget .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .局部变量 jar_output, 文本型 .局部变量 jar_folder, 文本型 jar_output ＝ 删首尾空 (编辑框1.内容) jar_folder ＝ 删首尾空 (编辑框2.内容) .如果真 (jar_output ＝ “” 或 取后缀 (jar_output) ≠ “.jar”) 信息框 (“输出文件名不能为空，且后缀必须为jar！”, 0, , ) 返回 () .如果真结束 .如果真 (jar_output ＝ “”) 信息框 (“未选择打包文件夹”, 0, , ) 返回 () .如果真结束 .如果 (选择框1.选中 ＝ 假) 运行 (“cmd /c ” ＋ “jar -cvf0 ” ＋ jar_output ＋ “ ” ＋ jar_folder, 假, #隐藏窗口) .否则 运行 (“cmd /c ” ＋ “jar -cvf ” ＋ jar_output ＋ “ ” ＋ jar_folder, 假, #隐藏窗口) .如果结束 信息框 (“打包成功！”, 0, , ) .子程序 _按钮2_被单击 .局部变量 foldername, 文本型 foldername ＝ 浏览文件夹 (“请选择打包文件夹”, ) .如果真 (foldername ≠ “”) 编辑框2.内容 ＝ foldername .如果真结束 .子程序 _按钮3_被单击 .局部变量 jar_file, 文本型 jar_file ＝ 删首尾空 (编辑框1.内容) .如果真 (jar_file ＝ “” 或 取后缀 (jar_file) ≠ “.jar”) 信息框 (“文件名不能为空，且后缀必须为jar！”, 0, , ) 返回 () .如果真结束 运行 (“cmd /c ” ＋ “jar -xvf ” ＋ jar_file, 假, #隐藏窗口) 信息框 (“解包成功！”, 0, , ) .子程序 _拖放对象1_得到文本 .参数 接收到的文本, 文本型 编辑框1.内容 ＝ 接收到的文本 .子程序 __启动窗口_创建完毕 拖放对象1.注册拖放控件 (取窗口句柄 ()) .子程序 __启动窗口_将被销毁 拖放对象1.撤消拖放控件 (取窗口句柄 ()) .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 编辑框1.内容 ＝ 接收到的文件路径 .子程序 取后缀, 文本型, , 包含. .参数 文件路径, 文本型 .局部变量 p, 整数型 p ＝ 倒找文本 (文件路径, “.”, , 假) 返回 (取文本右边 (文件路径, 取文本长度 (文件路径) － p ＋ 1))