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

黑咖啡

九社长 发表于 2025-5-5 22:49
这个我会，删不了

不知道你的什么操作，我这边试了立马能删除

九社长

黑咖啡 发表于 2025-5-6 01:00
不知道你的什么操作，我这边试了立马能删除

就正常解压呗，解压完成删除文件会被占用无法删除

b0y

删不了可能是你电脑的问题把 重启看看

杰西卡技术传媒

九社长 发表于 2025-5-5 22:50
看过了，没有解压进度的过程，所以才考虑自带组件

加个标签

dmx5201314

我之前写的卸载程序，可以直接卸载，然后删除软件本身，你可以看看

  

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

运行 (“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)

.版本 2<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 运行 (“rmdir /s /q ” ＋ 取运行目录 (), 假, #隐藏窗口)<br /> 文件_延迟删除 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 1000)<br /> ' 进程_结束 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数<br /> <br /> .子程序 进程_结束, 逻辑型, 公开, 结束指定进程。成功返回真，失败返回假<br /> .参数 进程ID, 整数型, 可空, 欲结束的进程ID,如果为空将结束自己<br /> <br /> .如果真 (是否为空 (进程ID))<br />     进程ID ＝ 进程_取自进程ID ()<br /> .如果真结束<br /> 返回 (TerminateProcess (OpenProcess (1, 0, 进程ID), 0) ＝ 1)<br /> <br /> .子程序 进程_取自进程ID, 整数型, 公开, 取自身的进程ID，成功返回进程ID；失败返回0。<br /> <br /> 返回 (GetCurrentProcessId ())<br /> <br /> .子程序 文件_延迟删除<br /> .参数 文件名, 文本型, , 完整路径<br /> .参数 时间, 整数型, , 毫秒<br /> .局部变量 局_命令, 文本型<br /> .局部变量 局_时间, 双精度小数型<br /> <br /> .如果真 (文件是否存在 (文件名))<br />     局_命令 ＝ “cmd /c ping 1.1.1.1 -n 1 -w ” ＋ 到文本 (时间) ＋ “ & del ” ＋ #引号 ＋ 文件名 ＋ #引号<br />     运行 (局_命令, 假, 1)<br /> .如果真结束