unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,TLHelp32, ComCtrls; type TForm1 = class(TForm)
btn1: TButton; lv1: TListView; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation type my32=record //自己定义的结构
A1:string; // 进程名 A2:Integer; //进程id end; {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); var i,x:Integer; kk:LongBool; pe32: tagPROCESSENTRY32; myrecode:array of my32; //自己定义结构数组 newitem:TListItem; begin myrecode:=nil; //清空 结构数组 i:=CreateToolhelp32Snapshot(2,0); pe32.dwSize:=1024; kk:=Process32First(i,pe32); x:=0; while kk=True do begin x:=x+1; SetLength(myrecode,x); //重命名结构上限 myrecode[x-1].A2:=pe32.th32ProcessID; //x-1下标表示是从0下标开始 myrecode[x-1].A1:= pe32.szExeFile; kk:=Process32Next(i,pe32); end; CloseHandle(i); //关闭句柄 i:= Length(myrecode); //取数组个数 //ShowMessage(IntToStr(i)); lv1.Clear; //清空超级列表框 for x:=0 to i-1 do begin newitem:=lv1.Items.Add; newitem.Caption:=myrecode[x].A1; newitem.SubItems.Add(IntToStr(myrecode[x].A2)); end; end; end.