浏览代码

+ Added exit status check

michael 27 年之前
父节点
当前提交
06690a3731
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      docs/linuxex/ex56.pp

+ 5 - 2
docs/linuxex/ex56.pp

@@ -4,7 +4,10 @@ uses linux;
 
 { Program to demonstrate the Shell function }
 
+Var S : Longint;
+
 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.