获得进程列表

var lppe: TProcessEntry32;
    found : boolean;
    Hand : THandle;
begin
  Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
  found := Process32First(Hand,lppe);
  while found do
  begin
    ListBox.Items.Add(StrPas(lppe.szExeFile));//列出所有进程。
    found := Process32Next(Hand,lppe);
  end;
end;
var lppe: TProcessEntry32;//这段段代码中 TProcessEntry32 是什么类型,请给详细结果.