漂亮的ExUI软件安装包

易语言 2020-06-12 19:14:54

漂亮的ExUI软件安装包

进程_提升权限到Debug (进程_名取ID (取执行文件名 ()))
.如果 (写到文件 (目录_取特定目录 (11) + “\exui.zip”, #支持库压缩包))

.否则
信息框 (“初始化失败,请检查是否以管理员权限运行。”, 0, , )
.如果结束
.如果真 (取反 (文件_是否存在 (易语言目录 + “\e.exe”)))
信息框 (“目录自动获取失败,请手动选择。”, 0, , )
临时目录 = 目录_浏览 (“请选择易语言目录”, 假, )
.如果 (取反 (文件_是否存在 (临时目录 + “\e.exe”)))
信息框 (“目录选择错误!”, #确认取消钮, , )
.否则
易语言目录 = 临时目录