易语言拖放文件时怎么取文件图标到图片框

.版本 2
.支持库 edroptarget
.支持库 iext2
.子程序 __启动窗口_创建完毕
拖放对象1.接收文件 ＝ 真
拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 字节集, 字节集
编辑框1.内容 ＝ 取文件名 (接收到的文件路径)
字节集 ＝ 建空图片组 (32, 32)
' 注：加入图片组后的图片会被转为BMP格式！
' 只支持EXE或图标库DLL文件提取图标，如其它格式的可通过取关联获得图标路径和序号，太麻烦了，我就不写了！
.如果真 (提取加入图片 (字节集, 接收到的文件路径, , ) ≠ -1)
图片框1.图片 ＝ 取图片组图片 (字节集, 0, )
.如果真结束

.子程序 取文件名, 文本型
.参数 文件路径, 文本型
.参数 带后缀, 逻辑型, 可空, 可空，默认为真
.局部变量 文件名, 文本型
文件名 ＝ 取文本右边 (文件路径, 取文本长度 (文件路径) － 倒找文本 (文件路径, “\”, , 假))
.如果真 (是否为空 (带后缀) 或 带后缀)
返回 (文件名)
.如果真结束
返回 (取文本左边 (文件名, 倒找文本 (文件名, “.”, , 假) － 1))

用 拖放对象 组件
启动时候注册拖放对象
还有拖放对象需要设置接收文件为真

=========代码==============
.版本 2
.支持库 edroptarget
.子程序 __启动窗口_创建完毕
拖放对象1.接收文件 ＝ 真
拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
编辑框1.内容 ＝ 接收到的文件路径

‘需要一个拖放对象和一个编辑框组件

.版本 2.支持库 edroptarget
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
.子程序 _拖放对象1_得到文件.参数 接收到的文件路径, 文本型
编辑框1.内容 ＝ 接收到的文件路径