图标组提取，提取含大图标

图标组提取，提取含大图标例子。
.如果 (TreeIcon.取父项目 (TreeIcon.现行选中项) ＝ -1)
Name ＝ TProJecName [TreeIcon.取项目数值 (TreeIcon.现行选中项)]
.否则
Name ＝ TProJecName [TreeIcon.取项目数值 (TreeIcon.取父项目 (TreeIcon.现行选中项))]
.如果结束
icon.打开PE文件 (Name)
Num ＝ icon.查找图标 (iconId)
.计次循环首 (Num, Count)
icon.保存图标到文件 (Count, path ＋ “\” ＋ 到文本 (iconId [Count]) ＋ “.ico”)
.计次循环尾 ()
icon.关闭文件 ()
信息框 (“所有图标已提取完成！” ＋ #换行符 ＋ “请到” ＋ path ＋ “下查看！”, 0, , 取窗口句柄 ())