2
0
Эх сурвалжийг харах

+ Added exit status check

michael 27 жил өмнө
parent
commit
06690a3731

+ 5 - 2
docs/linuxex/ex56.pp

@@ -4,7 +4,10 @@ uses linux;
 
 
 { Program to demonstrate the Shell function }
 { Program to demonstrate the Shell function }
 
 
+Var S : Longint;
+
 begin
 begin
-  writeln ('Output of ls -l *.pp');
-  Shell ('ls -l *.pp');
+  Writeln ('Output of ls -l *.pp');
+  S:=Shell ('ls -l *.pp');
+  Writeln ('Command exited wwith status : ',S);
 end.
 end.