带图标显示的进程列表

易语言 2020-10-13 12:05:21

带图标显示的进程列表

进程信息 = 取系统进程列表 ()
.计次循环首 (取数组成员数 (进程信息), 计次)
图片组 = 超级列表框1.图片组
索引 = 提取加入图片 (图片组, 进程_取程序路径 (进程信息 [计次].进程标识符), , 真)
超级列表框1.图片组 = 图片组
.如果 (索引 = -1)
超级列表框1.插入表项 (, 进程信息 [计次].进程名称, 0, , , )
.否则
超级列表框1.插入表项 (, 进程信息 [计次].进程名称, 索引, , , )
.如果结束
处理事件 ()
.计次循环尾 ()