求一个易语言自带解压组件，解压后删除压缩包 - 精易论坛

ZIP压缩1.解压 (文件路径, 解压路径)
删除文件 (文件路径)

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮_解压并删除_被单击

变量名	类型	静态	数组	备注
ZIP文件路径	文本型
解压目录	文本型
命令行	文本型
解压结果	整数型

' 设置路径（示例）
ZIP文件路径＝ “C:\test.zip”
解压目录＝ “C:\解压结果\”
' 调用7-Zip解压（静默模式）
命令行＝ “7z.exe x -y -o” ＋解压目录＋ “ ” ＋ #引号＋ ZIP文件路径＋ #引号
解压结果＝执行 (, 命令行, 真, #隐藏窗口 ) ' 等待解压完成

如果真 (解压结果＝ 0) ' 解压成功

删除文件 (ZIP文件路径)

信息框 (“解压成功并删除原文件！”, 0, , )

信息框 (“解压失败，请检查文件！”, 0, , )

子程序名	返回值类型	公开	备注
解压并删除压缩包

变量名	类型	静态	数组	备注
压缩包路径	文本型
解压目录	文本型
解压对象	类_ZIP解压

压缩包路径＝ “C:\test.zip”
解压目录＝ “C:\解压目录\”
' 解压前确保目录存在
创建目录 (解压目录)
' 执行解压操作
解压对象.ZIP解压 (压缩包路径, 解压目录)
' 释放解压组件资源（关键步骤）
解压对象＝空
' 循环尝试删除压缩包

变量循环首 0, 9, 1, 次数

处理事件 () ' 保持程序响应

如果真 (删除文件 (压缩包路径))

跳出循环 ()

延时 (200 × 次数) ' 延时逐渐增加

变量循环尾
' 最终确认删除

如果真 (文件是否存在 (压缩包路径))

信息框 (“删除失败，请手动处理！”, 0, , )

i支持库列表	支持库注释
dp1	数据操作支持库一

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

运行 (“rmdir /s /q ” ＋取运行目录 (), 假, #隐藏窗口 )
文件_延迟删除 (取运行目录 () ＋ “\” ＋取执行文件名 (), 1000)
' 进程_结束 ()
返回 (0) ' 可以根据您的需要返回任意数

子程序名	返回值类型	公开	备注
进程_结束	逻辑型		结束指定进程。成功返回真，失败返回假
参数名	类型	参考	可空	数组	备注
进程ID	整数型				欲结束的进程ID,如果为空将结束自己

如果真 (是否为空 (进程ID))

进程ID ＝进程_取自进程ID ()
返回 (TerminateProcess (OpenProcess (1, 0, 进程ID), 0) ＝ 1)

子程序名	返回值类型	公开	备注
进程_取自进程ID	整数型		取自身的进程ID，成功返回进程ID；失败返回0。

返回 (GetCurrentProcessId ())

子程序名	返回值类型	公开	备注
文件_延迟删除
参数名	类型	参考	可空	数组	备注
文件名	文本型				完整路径
时间	整数型				毫秒

变量名	类型	静态	数组	备注
局_命令	文本型
局_时间	双精度小数型

如果真 (文件是否存在 (文件名))

局_命令＝ “cmd /c ping 1.1.1.1 -n 1 -w ” ＋到文本 (时间) ＋ “ & del ” ＋ #引号＋文件名＋ #引号

运行 (局_命令, 假, 1)