Delphi-Help

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;