列举当前系统运行进程

var lppe: TProcessEntry32;                   //uses TlHelp32
  found: boolean;
  Hand: THandle;
begin
  mmo1.Clear;
  Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  found := Process32First(Hand, lppe);
  while found do
  begin
    mmo1.Lines.Add(StrPas(lppe.szExeFile));
    found := Process32Next(Hand, lppe);
  end;

end;