自动更新

wlaita2286

解压缩rar格式的文件 请问如何才能判断电脑上面有没有安装了对应的解压缩工具？如果没有要怎么才能给机器安装后解压缩啊

算法艺术家

  

子程序名	返回值类型	公开	备 注
WinRAR_获取安装路径	文本型		失败返回空

变量名	类 型	静态	数组	备 注
安装位置	文本型

' 安装位置 ＝ 取文本注册项 (4, “SOFTWARE\Classes\WinRAR\shell\open\command\”, )
' 安装位置 ＝ 取文本中间 (安装位置, 2, 寻找文本 (安装位置, “.exe”, , 假) ＋ 2)
安装位置 ＝ 取左边 (取文本注册项 ( #本地机器, “SOFTWARE\Classes\WinRAR\DefaultIcon\”, ), “,”, )
调试输出 (安装位置)
如果真 (安装位置 ＝ “”)
安装位置 ＝ “C:\Program Files\WinRAR\WinRAR.exe”

如果真 (文件是否存在 (安装位置) ＝ 假)
调试输出 (“文件不存在”)
返回 (“”)
返回 (安装位置)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 WinRAR_获取安装路径, 文本型, 公开, 失败返回空<br /> .局部变量 安装位置, 文本型<br /> <br /> ' 安装位置 ＝ 取文本注册项 (4, “SOFTWARE\Classes\WinRAR\shell\open\command\”, )<br /> ' 安装位置 ＝ 取文本中间 (安装位置, 2, 寻找文本 (安装位置, “.exe”, , 假) ＋ 2)<br /> <br /> 安装位置 ＝ 取左边 (取文本注册项 (#本地机器, “SOFTWARE\Classes\WinRAR\DefaultIcon\”, ), “,”, )<br /> 调试输出 (安装位置)<br /> .如果真 (安装位置 ＝ “”)<br />     安装位置 ＝ “C:\Program Files\WinRAR\WinRAR.exe”<br /> .如果真结束<br /> <br /> .如果真 (文件是否存在 (安装位置) ＝ 假)<br />     调试输出 (“文件不存在”)<br />     返回 (“”)<br /> .如果真结束<br /> 返回 (安装位置)

aipca

好像源码区有个WINRAR操作模块的，个人更喜爱zip 不需要三方软件，现在的硬盘空间大到用不完 完全没必要考虚压缩比的问题，zip的适用性要广得多

wu355355

好像源码区有个WINRAR操作模块的，个人更喜爱zip

算法艺术家

你也可以不用判断安没安装，把RAR程序那几个文件放资源表里，每次用的时候释放出来就行了，然后用精益模块的 rar_初始化 rar_解压

2wEn

直接用精易模块

wlaita2286

aipca 发表于 2025-3-20 15:24
好像源码区有个WINRAR操作模块的，个人更喜爱zip 不需要三方软件，现在的硬盘空间大到用不完 完全没必要考 ...

zip是不是也得判断有么有安装对应的工具

aipca

wlaita2286 发表于 2025-3-20 16:51
zip是不是也得判断有么有安装对应的工具

zip不用判断 WIN系统从XP年代就一直内置的

zboyy868

好像源码区有个WINRAR操作模块的，个人更喜爱zip 不需要三方软件，现在的硬盘空间大到用不完 完全没必要考虚压缩比的问题，zip的适用性要广得

wlaita2286

算法艺术家 发表于 2025-3-20 15:33
[e=3].版本 2
.支持库 spec

大哥列子都写出来分给你了，楼下那个哥哥也挺有耐心 谢谢