Delphi获取系统进程和进程ID，Listview实现

Delphi获取系统进程和进程ID，Listview实现：

var   Form1: TForm1;   
Summ: Word;  
implementation  {$R *.dfm}  
procedure TForm1.N2Click(Sender: TObject);  
var   
ContinueLoop: BOOL;   
NewItem: TListItem; 
begin   
ListView1.Items.BeginUpdate;   
ListView1.Items.Clear;   
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);   //CreateToolhelp32Snapshot函数得到进程快照   
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);  //初始化   
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);   //Process32First 得到一个系统快照里第一个进程的信息   
Summ := 0;   
while ContinueLoop do     
begin     
Summ := Summ + 1;     
NewItem := ListView1.Items.Add;   //在ListView1显示     
NewItem.ImageIndex := -1;     
NewItem.Caption := ExtractFileName(FProcessEntry32.szExeFile);//进程名称     
NewItem.subItems.Add(FormatFloat('00', Summ));//序号     
NewItem.subItems.Add(IntToStr(FProcessEntry32.th32ProcessID));//进程ID     
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);   
end;   
CloseHandle(FSnapshotHandle);   
ListView1.Items.EndUpdate; 
end;