进程管理软件并取程序图标

路径 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
图标数 ＝ ExtractIconA (_启动窗口.取窗口句柄 (), 路径, -1) ' 给ExtractIcon传递的第三个参数图标索引若为-1则返回文件所含图标的总数
.如果 (图标数 ≠ 0)
画出图标 (0) ' 画图标函数的图标索引从0开始，图标数-1结束
.否则
信息框 (“文件” ＋ 路径 ＋ “中没有图标！”, #信息图标, “读取图标”)