home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / leser / shelltst.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-02-06  |  463 b   |  16 lines
  1. PROGRAM ShellTest;                   { Turbo Pascal ab 5.0 }
  2.  
  3. {$M 1024,0,0}                           { Heap freihalten! }
  4.  
  5. USES Dos;
  6. VAR
  7.   CommandPath : PathStr;
  8. CONST                                       { neuer Prompt }
  9.   Prompt = 'Exit zum Verlassen...$_$P$G';
  10. BEGIN
  11.   { COMMAND.COM-Pfad ermitteln }
  12.   CommandPath := GetEnv('COMSPEC');
  13.   { COMMAND.COM starten, Prompt als Parameter übergeben }
  14.   Exec(CommandPath, '/H PROMPT ' + Prompt);
  15. END.
  16.