修改易语言模块图标源码

.版本 2
.支持库 edroptarget

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (标签1.取窗口句柄 ())

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

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

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

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

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

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


.子程序 __启动窗口_将被销毁

拖放对象1.销毁 ()

@剩下我de孩子气