fpcdocs/unixex/ex80.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

program example56;

uses Unix;

{ Program to demonstrate the Shell function }

Var S : Longint;

begin
  Writeln ('Output of ls -l *.pp');
  S:=fpSystem('ls -l *.pp');
  Writeln ('Command exited wwith status : ',S);
end.