home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ABORTU.ZIP / CLOSGRPH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-03-27  |  457 b   |  29 lines
  1. UNIT ClosGrph;
  2. {
  3. This unit does nothing except to make sure that upon program termination a
  4. CloseGraph has been done.
  5. }
  6.  
  7. INTERFACE
  8.  
  9. USES
  10.    Graph;
  11.  
  12. IMPLEMENTATION
  13.  
  14. var
  15.    ExitSave : pointer;
  16.  
  17. {$F+} procedure ExitHandler; {$F-}
  18. begin
  19.    {$I-} CloseGraph; {$I+}
  20.    if GraphResult <> grOK then ; {don't care.  just wanted it closed.}
  21.    ExitProc := ExitSave;
  22. end;
  23.  
  24. begin
  25.    ExitSave := ExitProc;
  26.    ExitProc := @ExitHandler;
  27. end.
  28.  
  29.