在uses中加上:tlhelp32
再加个Button和memo组件
procedure TForm1.Button1Click(Sender: TObject);
var
bl:Boolean;
ProcessHandle:Thandle;
ProcessStruct:TProcessEntry32; //TProcessEntry32类型就是在:tlhelp32中
begin
memo1.Lines.Clear;
ProcessHandle:=createtoolhelp32snapshot(Th32cs_snapprocess,0);//取得系统快照
processStruct.dwSize:=sizeof(ProcessStruct);//得到TProcessEntry32的大小
bl:=process32first(ProcessHandle,ProcessStruct);
while integer(bl)<>0 do
begin
memo1.Lines.add(ProcessStruct.szExeFile);
bl:=process32next(ProcessHandle,ProcessStruct);
end;
end;
说明:[System Process]是一个进程,看不到的,没有优先级,它是指你系统剩余cpu占用
posted on 2008-11-11 19:35
小叶子 阅读(205)
评论(0) 编辑 收藏 引用