Как Получить Список Процессов?

[Sascha]

Как получить список процессов?

uses
  ..., TlHelp32;
procedure TForm1.Button1Click(Sender: TObject);
var
  hSnap: THandle;
  pe: TProcessEntry32;
begin
   ListBox1.Clear;
   pe.dwSize := SizeOf( pe );
   hSnap := CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
   if Process32First( hSnap, pe ) then
   begin
      ListBox1.Items.Add( pe.szExeFile );
      while Process32Next( hSnap, pe ) do
         ListBox1.Items.Add( pe.szExeFile );
   end;
end;