易语言支持库一键安装器

易语言 2020-08-19 17:53:30

易语言支持库一键安装器

.如果真 (超级列表框1.取表项数 () = 0)
信息框 (“请先导入支持库后再进行安装”, #错误图标, )
返回 ()
.如果真结束
.如果真 (文件是否存在 (程序集_路径 + “\lib”) = 假)
信息框 (“易语言路径错误,找不到lib文件夹”, #错误图标, )
返回 ()
.如果真结束
.如果真 (文件是否存在 (程序集_路径 + “\static_lib”) = 假)
信息框 (“易语言路径错误,找不到static_lib文件夹”, #错误图标, )
返回 ()
.如果真结束
连续赋值 (真, 按钮1.禁止, 按钮2.禁止, 按钮3.禁止, 按钮4.禁止, 按钮5.禁止)
.计次循环首 (超级列表框1.取表项数 (), i)
局部_文件名 = 超级列表框1.取标题 (i - 1, 0)
局部_文件后缀 = 指针到文本 (取文件扩展名_ (局部_文件名))
.判断开始 (局部_文件后缀 = “.fne”)
局部_复制结果 = 复制文件_ (超级列表框1.取标题 (i - 1, 0), 程序集_路径 + “\lib\” + 指针到文本 (取路径文件名_ (局部_文件名)), 0)
.默认
局部_复制结果 = 复制文件_ (超级列表框1.取标题 (i - 1, 0), 程序集_路径 + “\static_lib\” + 指针到文本 (取路径文件名_ (局部_文件名)), 0)
.判断结束
.判断开始 (局部_复制结果 = 0)
超级列表框1.置标题 (i - 1, 1, “安装失败”)
.默认
超级列表框1.置标题 (i - 1, 1, “安装成功”)
.判断结束

.计次循环尾 ()
连续赋值 (假, 按钮1.禁止, 按钮2.禁止, 按钮3.禁止, 按钮4.禁止, 按钮5.禁止)