PID                 Width: 50
Term                Width: 50
Status              Width: 50
Tempo               Width: 50
Linha de Comando    Width: 500

interface

uses
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QComCtrls, Libc;

procedure TForm1.Button1Click(Sender: TObject);
var
  Processos : PIOFile;
  Linha : Array[0..254] of Char;
  LinhaStr : String;
  PosAtu : Integer;
begin
// limpa a Listview
  ListView1.Items.Clear;
// habilita o pipe para leitura para iniciar a  listagem de processos
   Processos := popen('ps axh', 'r');
// processa enquanto puder ler linhas
  while fgets(Linha,255,Processos) <> nil do begin
// converte o PChar para String para facilitar a manipulação dos dados
    LinhaStr := Trim(String(Linha));
    with Listview1.Items.Add do begin
// coloca o inicio da linha em um caption
    PosAtu := Pos(' ',LinhaStr);
    if PosAtu <> 0 then begin
    Caption := Copy(LinhaStr,1,PosAtu-1);
    LinhaStr := Trim(copy(LinhaStr, PosAtu,
    Length(LinhaStr)));
    end
    else begin
    Caption := LinhaStr;
    LinhaStr := '';
    end;
// o restante da linha coloca nos sub-ítens
    while LinhaStr <> '' do begin
    PosAtu := Pos(' ',LinhaStr);
    if PosAtu <> 0 then begin
    SubItems.Add(Copy(LinhaStr,1,PosAtu-1));
    LinhaStr := Trim(copy(LinhaStr, PosAtu,
    Length(LinhaStr)));
    end
    else begin
    SubItems.Add(LinhaStr);
    LinhaStr := '';
    end;
    end;
    end;
  end;
// fecha pipe
  pclose(Processos);
end;