.版本 2 .支持库 edroptarget .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 拖放对象1.注册拖放控件 (标签1.取窗口句柄 ()) .子程序 系统_刷新桌面, , 公开, 调用API刷新桌面 SHChangeNotify (#SHCNE_ASSOCCHANGED, #SHCNF_IDLIST, 0, 0) .子程序 系统_设置易语言模块图标, 逻辑型, 公开 .参数 关联的图标程序, 文本型, , 例如:D:\QQ.exe .如果真 (写注册项 (1, “ec\DefaultIcon\”, 关联的图标程序 ＋ “,0”) ≠ 真) 返回 (假) .如果真结束 系统_刷新桌面 () 返回 (真) .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 标签1.标题 ＝ “接受程序：” ＋ 接收到的文件路径 .如果真 (系统_设置易语言模块图标 (接收到的文件路径)) 信息框 (“设置成功！”, 0, , ) .如果真结束 .子程序 __启动窗口_将被销毁 拖放对象1.销毁 ()