paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added exit status check

Browse Source
This commit is contained in:
michael 1998-04-21 08:20:59 +00:00
parent d37d9c90cb
commit 06690a3731
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
docs/linuxex/ex56.pp
View File

@ -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'); Writeln ('Output of ls -l *.pp');
Shell ('ls -l *.pp'); S:=Shell ('ls -l *.pp');
Writeln ('Command exited wwith status : ',S);
end. end.