拖放文件提取应用程序图标工具

.如果真 (保存.文件名 ＝ “”)
_启动窗口.总在最前 ＝ 假
信息框 (“请选择有效的路径”, #错误图标, “错误”, )
_启动窗口.总在最前 ＝ 真
提示.标题 ＝ “拖放文件到此处”
返回 ()
.如果真结束
写到文件 (保存.文件名 ＋ “.ico”, 处理后)
提示.标题 ＝ “文件保存成功”