修改易语言模块图标工具

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

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

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

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

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