Полищук, Семериков. Системное программирование в UNIX средствами Free Pascal / examples / 5 / docommd

(* рТПЗТБННБ docommand -- ЪБРХУЛ ЛПНБОДЩ ПВПМПЮЛЙ, РЕТЧБС ЧЕТУЙС *)

uses linux,stdio;

function docommand(command:pchar):integer;
var
pid:longint;
begin
pid := fork;
if pid < 0 then
begin
docommand:=-1;
exit;
end;

if pid = 0 then (* ДПЮЕТОЙК РТПГЕУУ *)
begin
linuxexecl('/bin/sh', 'sh', ['-c', command, nil]);
perror ('execl');
halt(1);
end;

(* лПД ТПДЙФЕМШУЛПЗП РТПГЕУУБ *)
(* пЦЙДБОЙЕ ЧПЪЧТБФБ ЙЪ ДПЮЕТОЕЗП РТПГЕУУБ *)
wait(nil);

docommand:=0;
end;

begin
docommand('ls -l | wc -l');
end.