home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMEX2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  1.5 KB  |  49 lines
  1. Program DemoMiscExecOne;
  2. {DEMEX1 - executing other programs from within a Turbo Pascal program}
  3.  
  4. Uses DOS,CRT, totMISC, totFAST, totINPUT, totIO2;
  5.  
  6. {IMPORTANT NOTE: you must use the $M compiler directive to instruct the
  7.  compiler to leave some memory for the child process, i.e. leave enough
  8.  memory for the sub-program to run.
  9.  
  10.  $M limits the amount of memory available for the parent program, and 
  11.  the precise settings are therefore dependant upon the program's size.
  12.  You will have to experment with different values -- your goal should be
  13.  to allocate "just enough" memory for the parent program, thereby leaving
  14.  the maximum amount possible for the child program.
  15.  
  16.  Other Toolkit units make extensive use of the heap, and in
  17.  most "real life" program you will need to set the heap to a non-zero 
  18.  value, e.g. $M $8000,$4000,$4000. As a rule, set the min and max values
  19.  the same. Refer to the Turbo Pascal documentation for further information
  20.  regarding the $M compiler directive.
  21.  
  22. }
  23.  
  24. {$M $2000,$2000,$2000}
  25.  
  26. var 
  27.   RetCode : integer;
  28.   InputField: LateralIOOBJ;
  29.   Command: string;
  30. begin
  31.    Clrscr;
  32.    repeat
  33.       writeln;
  34.       with InputField do
  35.       begin
  36.          Init(36,Screen.WhereY,30,70);
  37.          SetLabel('Enter a program to execute, or ESC');
  38.          Activate;
  39.          Command := GetValue;
  40.          Done;
  41.       end;
  42.       if (Key.LastKey = 27) or (Command = '') then
  43.          halt(0);
  44.       Retcode := RunAnything(Command);
  45.    until Retcode <> 0;
  46.    writeln('Something went wrong!');
  47. end.
  48.  
  49.