自动更新器带迅雷下载引擎RAR、ZIP自解压模块

易语言 2020-08-03 17:47:48

自动更新器带迅雷下载引擎RAR、ZIP自解压模块

DownTaskParam.创建 (“……………………” + 更新文件, , , 更新文件, 取运行目录 () + “\Update”, , , )
hTask = XL_CreateTask (DownTaskParam.取结构地址 ())
XL_StartTask (hTask)
DownTaskInfo.创建 ()
下载内容_编辑框.加入文本 (“ 开始下载...” + #换行符 + #换行符)

ZIP解压判断 = ZIP压缩.解压 (取运行目录 () + “\Update\” + 更新文件, 取运行目录 ())
.如果 (ZIP解压判断 = 1)
下载内容_编辑框.加入文本 (“ 文件解压完成,正在删除更新文件...” + #换行符)
文件_删除 (取运行目录 () + “\Update\” + 更新文件)
下载内容_编辑框.加入文本 (“ 更新完成...” + #换行符)
延时 (1000)
.否则
下载内容_编辑框.加入文本 (“解压文件失败,请自行手动解压:” + 取运行目录 () + “\Update\” + 更新文件)