home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / T-Pascal.70 / DEMOS.ZIP / EXECDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1992-10-30  |  1KB  |  45 lines
  1. {************************************************}
  2. {                                                }
  3. { Turbo Exec Demo                                }
  4. { Copyright (c) 1985,90 by Borland International }
  5. {                                                }
  6. {************************************************}
  7.  
  8. program ExecDemo;
  9.  
  10. (*
  11.   Demonstration program that shows how to use the Dos
  12.   unit's Exec procedure to execute DOS commands (including
  13.   running other programs or batch files).
  14.  
  15.   This program keeps prompting you for a DOS command until
  16.   you enter a blank line.
  17.  
  18.   When using Exec, make sure you specify a {$M} directive
  19.   so the heap leaves some memory available for the child
  20.   process.
  21. *)
  22.  
  23. {$M 8192,0,0}           { Leave memory for child process }
  24.  
  25. uses Dos;
  26.  
  27. var
  28.   Command: string[127];
  29.  
  30. begin
  31.   repeat
  32.     Write('Enter DOS command: ');
  33.     ReadLn(Command);
  34.     if Command <> '' then
  35.     begin
  36.       SwapVectors;
  37.       Exec(GetEnv('COMSPEC'), '/C ' + Command);
  38.       SwapVectors;
  39.       if DosError <> 0 then
  40.         WriteLn('Could not execute COMMAND.COM');
  41.       WriteLn;
  42.     end;
  43.   until Command = '';
  44. end.
  45.