支持拖放的ICO图标提取程序

文件全名 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 倒找文本 (编辑框1.内容, “\”, , 真))
去扩展名 ＝ 取文本左边 (文件全名, 寻找文本 (文件全名, “.”, , 真) － 1)
提取资源文件图标 (编辑框1.内容, 0, 取运行目录 () ＋ “\” ＋ 去扩展名 ＋ “.ico”, 1)