home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / exec.swg / 0002_EXECINFO.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  153 b   |  11 lines
  1. {$M 4096,0,4096}
  2.  
  3. Uses
  4.   Dos, Prompt;
  5.  
  6. begin
  7.   ChangeShellPrompt('Hi There');
  8.   SwapVectors;
  9.   Exec(GetEnv('COMSPEC'),'');
  10.   SwapVectors;
  11. end.