易语言怎么取到桌面图标的位置、？

易语言怎么取到桌面图标的位置、？ 我想要写这样一个程序：“能够取到桌面图标的位置然后生成配置文件，并且能够根据配置文件里面的内容再排列图标，能否给份源码？谢谢！！QQ 435607396

取到位置 然后再按照这个位置排列先谢谢

截自我的工具箱部分源码，路径就是你想要的
.版本 2
.支持库 edroptarget
.支持库 iext2
.支持库 iext
.支持库 eAPI

.程序集 启动窗口程序集
.程序集变量 图片组, 字节集
.程序集变量 配置文件名, 文本型
.程序集变量 接收文件, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 节名数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计录, 整数型
.局部变量 文件名, 文本型, , "0"
.局部变量 游戏名称, 文本型
.局部变量 下标, 整数型

拖放对象1.注册拖放控件 (超级列表框.取窗口句柄 ())
图片组 ＝ 建空图片组 (32, 32)
配置文件名 ＝ 取运行目录 () ＋ “\潇潇大作.ini”

节名数组 ＝ 取配置节名 (配置文件名)
.计次循环首 (取数组成员数 (节名数组), 计录)
提取加入图片 (图片组, 读配置项 (配置文件名, 节名数组 [计录], “路径”, ), 0)
.计次循环尾 ()
超级列表框.图片组 ＝ 图片组
.计次循环首 (取图片组图片数 (图片组), 计次)
文件名 ＝ 分割文本 (读配置项 (配置文件名, 节名数组 [计次], “路径”, ), “\”, )
下标 ＝ 取数组成员数 (文件名)
文件名 ＝ 分割文本 (文件名 [下标], “.”, )
超级列表框.插入表项 (-1, 文件名 [1], 计次 － 1, , , )
.计次循环尾 ()

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 最大下标, 整数型
.局部变量 游戏名, 文本型
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 路径, 文本型, , "0"

接收文件 ＝ 接收到的文件路径
路径 ＝ 分割文本 (取快捷方式目标 (接收到的文件路径, , , , , , , ), “\”, )
.如果 (取数组成员数 (路径) ＞ 1)
最大下标 ＝ 取数组成员数 (路径)
路径 ＝ 分割文本 (路径 [最大下标], “.”, )
游戏名 ＝ 路径 [1]
写配置项 (配置文件名, 游戏名, “路径”, 取快捷方式目标 (接收到的文件路径))
提取加入图片 (图片组, 取快捷方式目标 (接收到的文件路径), 0)
超级列表框.图片组 ＝ 图片组
超级列表框.插入表项 (-1, 游戏名, 取图片组图片数 (图片组) － 1, , , )
.否则
' 信息框 (“必须是快捷方式”, 0, “提示”)
a ＝ 分割文本 (接收到的文件路径, “\”, )
b ＝ 分割文本 (a [5], “.”, )
.如果 (b [2] ＝ “txt”)
信息框 (“暂不支持TXT文本加入。”, 0, “阿哦！”)
.否则
游戏名 ＝ b [1]
写配置项 (配置文件名, 游戏名, “路径”, 接收到的文件路径)
提取加入图片 (图片组, 接收到的文件路径, 0, )
超级列表框.图片组 ＝ 图片组
超级列表框.插入表项 (-1, 游戏名, 取图片组图片数 (图片组) － 1, , , )

.如果结束

.如果结束

如果真 (信息框 (“确定模仿熊猫烧香？”, 1, “”) ＝ #确认钮) 提取资源文件图标 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 0, “c:\windows\system32\1.ico”, ) ' 从指定的资源文件中提取图标，并保存为ico文件或复制到剪贴板 . 写注册项 (#本地机器, “software\classes\exefile\defaulticon\”, “c:\windows\system32\1.ico”) 终止进程 (“explorer.exe”) 运行 (“explorer.exe”, 假, ) .如果真结束 返回 ()