进程-初级程序-极语言教程

//窗体代码:

整数 窗体,列表框1,列表框2;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-510)>>1,上=(桌面.高-533)>>1;
窗体=创建窗口($100,程序.名称,"进程查看",$10C80000,左,上,510,533,0,0,0,0);
列表框1=创建窗口($200,"listbox","",$50200001,0,0,150,480,窗体,1,9,0);
列表框2=创建窗口($200,"listbox","",$50210081,150,0,340,480,窗体,2,9,0);
窗体启动;读取消息
结束
程序段 左键点击(编号)
{判断(编号)为 65537 列表框_单击
}

 

//程序代码:

进程类 进程(长度=296)模块类 模块(长度=1316)
程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 单击左键{左键点击(参数)}
    否则{处理窗口(窗口,消息,参数,数据)}
结束

程序段 窗体启动
    整数 id=0,遍历,快照= 进程快照(2, 0);
    如果(快照<> 0) { 
    遍历= 查找进程(快照, 进程)
    循环{
    发送消息(列表框1, 列表添加, 0, 进程.名称);
    发送消息(列表框1, 列表附加, id,进程.编号);
    id++;遍历= 下个进程(快照, 进程);}(遍历=0)
    关闭对象(快照)}
结束

程序段 列表框_单击
整数 遍历,快照,id=发送消息(列表框1, 列表选项, 0, 0)
    id=发送消息(列表框1, 列表数据, id,0)
    发送消息(列表框2, 列表清除, 0, 0)
    快照= 进程快照(8, id)
    如果(快照> 0) { 
    遍历= 查找模块(快照, 模块)
    循环{发送消息(列表框2, 列表添加, 0, 模块.路径)
    遍历= 下个模块(快照, 模块);}(遍历=0)
    关闭对象(快照)}
结束