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

.子程序 _保存选中图标_被选择
.局部变量 路径, 文本型
.局部变量 图片号
.局部变量 文件名称, 文本型

通用对话框_保存.标题 ＝ “保存图标文件”
通用对话框_保存.过滤器 ＝ “图标文件(*.ico)|*.ico|图片文件(*.bmp)|*.bmp”
通用对话框_保存.类型 ＝ 1
文件名称 ＝ 取文本右边 (文件名, 取文本长度 (文件名) － 倒找文本 (文件名, “\”, , 假))
通用对话框_保存.文件名 ＝ 取文本左边 (文件名称, 倒找文本 (文件名称, “.”, , 假) － 1)
调试输出 (取文本左边 (文件名称, 倒找文本 (文件名称, “.”, , 假) － 1))
.如果真 (通用对话框_保存.打开 ())
    .如果 (取文件内图标数 (文件名) ＝ 0)
        路径 ＝ 文件名

        路径 ＝ 取文本注册项 (1, 取文本注册项 (1, 取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “.”, , 假) ＋ 1) ＋ “\”, ) ＋ “\DefaultIcon\”, )
        调试输出 (路径)
        图片号 ＝ 到整数 (取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “,”, , 假)))
        .如果真 (提取资源文件图标 (取文本左边 (路径, 倒找文本 (路径, “,”, , 假) － 1), 0, 通用对话框_保存.文件名, 图片号) ＝ 0)
            信息框 (“保存选中图标失败!”, #错误图标, “Guazi提示：”)
        .如果真结束

    .否则
        .如果真 (提取资源文件图标 (文件名, 0, 通用对话框_保存.文件名, 超级列表框1.取表项数值 (超级列表框1.现行选中项)) ＝ 0)
            信息框 (“保存选中图标失败!”, #错误图标, “Guazi提示：”)