delphiÖжÔÓÚ½ø³ÌµÄ²Ù×÷

Uses Tlhelp32;
//ÓÃListboxÏÔʾ·½·¨
procedure TForm1.Button1Click(Sender: TObject);
var
lppe:TProcessEntry32;
found:boolean;
Hand:THandle;
begin
Hand:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
lppe.dwSize := Sizeof(lppe); //³õʼ»¯
found:=Process32First(Hand,lppe);
while found do
begin
ListBox1.Items.Add(StrPas(lppe.szExeFile));//ÁгöËùÓнø³Ì¡£
found:=Process32Next(Hand,lppe);
end;
end;
=====================================================
procedure TForm1.Timer1Timer(Sender: TObject); //ˢнø³ÌÁбí
begin
listbox.Clear;
self.Button1.Click;
end;
end.
-------------------------------------------------------------------------------------------------------------
//ÓÃListviewÏÔʾ·½·¨
procedure TForm1.FormCreate(Sender: TObject);
var
found:boolean; //¶¨Òåö¾Ù½ø³ÌËùÐè±äÁ¿
NewItem: TListItem;
FSnapshotHandle:tHANDLE;
lppe:TProcessEntry32;
Summ: Word;
begin
with listview1 do
begin
Columns.Add;
Columns.Add;
Columns.Add;
ViewStyle:=vsreport;
GridLines:=true;
columns.items[0].caption:='½ø³ÌÃû';
columns.items[1].caption:='½ø³ÌÐòºÅ';
columns.items[2].caption:='½ø³ÌID';
Columns.Items[0].Width:=100;
Columns.Items[1].Width:=100;
Columns.Items[2].Width:=150; //³õʼ»¯listview
end;
ListView1.Items.BeginUpdate;
ListView1.Items.Clear;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //CreateToolhelp32Snapshotº¯ÊýµÃµ½½ø³Ì¿ìÕÕ
lppe.dwSize := Sizeof(lppe); //³õʼ»¯
found := Process32First(FSnapshotHandle, lppe); //Process32First µÃµ½Ò»¸öϵͳ¿ìÕÕÀïµÚÒ»¸ö½ø³ÌµÄÐÅÏ¢
Summ := 0;
while found do
begin
Summ := Summ + 1;
NewItem := ListView1.Items.Add; //ÔÚListView1ÏÔʾ
NewItem.ImageIndex := -1;
NewItem.Caption := ExtractFileName(lppe.szExeFile);//½ø³ÌÃû³Æ
NewItem.subItems.Add(FormatFloat('00', Summ));//ÐòºÅ
NewItem.subItems.Add(IntToStr(lppe.th32ProcessID));//½ø³ÌID
found := Process32Next(FSnapshotHand