program Exec_Example;

uses
  classes, sysUtils, process;

function DoExecute(progname, arguments : string) : tstringlist;
var
  myprocess       : tprocess;
  mystringlist    : classes.tstringlist;

begin
  myprocess:= tprocess.create(nil);
  mystringlist:= classes.tstringlist.create;
  myprocess.executable:= progname;
  myprocess.parameters.add(arguments);

  myprocess.options:= myprocess.options + [powaitonexit,pousepipes];
  
  // -----------------------------------------------------------------------
  myprocess.execute;
  // -----------------------------------------------------------------------
  
  exitcode:= myprocess.exitstatus;
  mystringlist.loadfromstream(myprocess.output);

  myprocess.free;  
  DoExecute:= mystringlist;
end;

var
  serialport   : string = '/dev/ttyUSB0';
  tstring      : classes.tstringlist;

{ ---------------------------------------------------------
                           main
  --------------------------------------------------------- }
begin
  tstring:= classes.tstringlist.create;
  tstring:= DoExecute('fuser',serialport);

  if (tstring.count > 0) then
  begin
    writeln(^j'Serialport: '+serialport+' ist in Benutzung mit Prozess: '+
               tstring.strings[tstring.count-1]); 
  end else
  begin
    writeln(^j'Serialport: '+serialport+' ist nicht in Benutzung');
  end;

end.