home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 03 / exit / exitshel.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-10-19  |  608 b   |  29 lines
  1. PROGRAM ExitShell;
  2.  
  3. { Demonstrate how to write a custom exit procedure }
  4.  
  5. VAR   savedExitProc : Pointer;  { Old ExitProc value }
  6.  
  7.  
  8. {$F+} PROCEDURE CustomExit; {$F-}
  9.  
  10. { Custom exit procedure }
  11.  
  12. BEGIN
  13.    Writeln( 'Inside CustomExit procedure' );
  14.    exitProc := savedExitProc    { Restore saved exitProc pointer }
  15. END; { CustomExit }
  16.  
  17.  
  18. BEGIN
  19.  
  20.    savedExitProc := exitProc;   { Save ExitProc pointer }
  21.    exitProc := @CustomExit;     { Install custom error procedure }
  22.  
  23.    Writeln;
  24.    Writeln( 'Welcome to ExitShell' );
  25.    Write( 'Press <Enter> to end program...' );
  26.    Readln
  27.  
  28. END.
  29.