home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / tricks / t_execdm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-01  |  783 b   |  29 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   T_EXECDM.PAS                         *)
  3. (*           Demonstration der Unit T_Exec                *)
  4. (* ------------------------------------------------------ *)
  5. {$M 5120,0,5120}
  6.  
  7. PROGRAM ExecDemo;
  8.  
  9. USES Crt, Dos, T_Exec;
  10.  
  11. VAR ch   : CHAR;
  12.     c, p : STRING;
  13.  
  14. BEGIN
  15.   REPEAT
  16.     ClrScr;
  17.     Write(' Programmname : '); ReadLn(c);
  18.     Write(' Parameter    : '); Readln(p);
  19.     ExecProg(c,p);
  20.     WriteLn;
  21.     Write(' DOS- Kommando : '); ReadLn(c);
  22.     ExecDos(c);
  23.     WriteLn;  WriteLn;
  24.     Write(' ESC = Ende '); ch := ReadKey;
  25.   UNTIL ch = #27;
  26. END.
  27. (* ------------------------------------------------------ *)
  28. (*                 Ende von T_EXECDM.PAS                  *)
  29.