Question

我最近学了易语言制作拖拽快捷键图标游戏菜单，做好后不知道哪里错了，问问？？

.版本 2
.支持库 edroptarget
.支持库 iext2
.支持库 iext
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 ico, 字节集
.程序集变量 图片框, 整数型

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

打开 (“D:\My Documents\桌面\1.edb”, , , , , , )
初始化 ()
拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())
拖放对象1.接收文件 ＝ 真

.子程序 初始化

ico ＝ 建空图片组 (32, 32)
.计次循环首 (取记录数 (), )
图片框 ＝ 提取加入图片 (ico, 读 (2), , )
超级列表框1.插入表项 (, 读 (1), 图片框, , , )
超级列表框1.图片组 ＝ ico
跳过 ()
.计次循环尾 ()

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

.判断开始 (取文本右边 (接收到的文件路径, 31 ＝ “.lnk”))
取快捷方式目标 (接收到的文件路径, 目标, , , , , , )
加空记录 ()
写 (“名称”, 取路径名 (接收到的文件路径)) ' 目标
写 (“路径”, 目标)
图片框 ＝ 提取加入图片 (ico, 读 (2), , )
超级列表框1.插入表项 (, 读 (1), 图片框, , , )
超级列表框1.图片组 ＝ ico

.默认

.判断结束

.子程序 取路径名, 文本型
.参数 路径, 文本型
.参数 a, 文本型
.参数 b, 文本型

a ＝ 取文本右边 (路径, 取文本长度 (路径) ＝ 寻找文本 (路径, “\”, , 假))
b ＝ 取文本左边 (a, 寻找文本 (a, “ ”, , 假) － 1)
返回 (1)

Answer 1

判断 (取文本右边 (接收到的文件路径, 31 ＝ “.lnk”))--这行写错了
应该是判断（取文本右边（接收到的文件路径，4）=“.lnk”）