修改易语言模块图标工具

易语言 2020-07-11 16:08:02

修改易语言模块图标工具

标签1.标题 = “接受程序:” + 接收到的文件路径
.如果真 (系统_设置易语言模块图标 (接收到的文件路径))
信息框 (“设置成功!”, 0, )

.子程序 系统_刷新桌面, , 公开, 调用API刷新桌面

SHChangeNotify (#SHCNE_ASSOCCHANGED, #SHCNF_IDLIST, 0, 0)

.子程序 系统_设置易语言模块图标, 逻辑型, 公开
.参数 关联的图标程序, 文本型, , 例如:D:\QQ.exe

.如果真 (写注册项 (1, “ec\DefaultIcon\”, 关联的图标程序 + “,0”) ≠ 真)
返回 (假)
.如果真结束
系统_刷新桌面 ()