home *** CD-ROM | disk | FTP | other *** search
- Program Example5;
- uses Dos;
-
- { Program to demonstrate the Exec and DosExitCode function. }
-
- begin
- {$IFDEF LINUX}
- WriteLn('Executing /bin/ls -la');
- Exec('/bin/ls','-la');
- {$ELSE}
- WriteLn('Executing Dir');
- Exec(GetEnv('COMSPEC'),'/C dir');
- {$ENDIF}
- WriteLn('Program returned with ExitCode ',DosExitCode);
- end.
-