home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LEXMPSRC.RAR / RUN.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  779b  |  25 lines

  1. {█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
  2. {█                                                       █}
  3. {█      Virtual Pascal for Linux                         █}
  4. {█      Test example for execution of processes          █}
  5. {█      ─────────────────────────────────────────────────█}
  6. {█      Copyright (C) 1999 Joerg Pleumann                █}
  7. {█                                                       █}
  8. {▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
  9.  
  10. program Run;
  11.  
  12. uses
  13.   Dos;
  14.  
  15. begin
  16.   FileSystem := fsDosLower;
  17.  
  18.   WriteLn('Calling child process...');
  19.  
  20.   Exec('c:INFO', 'Argument-ONE "Argument T W O"      Argument_THREE ''Argument 4 4 4 4 FOUR''');
  21.  
  22.   WriteLn('Child process terminated with Code ', DosExitCode, '.');
  23. end.
  24.  
  25.