home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibdemo3.zip / SOURCE.DAT / SOURCE / RTL / PRINTER.PAS < prev    next >
Pascal/Delphi Source File  |  1996-09-04  |  402b  |  27 lines
  1. UNIT Printer;
  2.  
  3. INTERFACE
  4.  
  5. VAR Lst:TEXT;
  6.  
  7. IMPLEMENTATION
  8.  
  9. VAR PrinterExit:POINTER;
  10.  
  11. PROCEDURE NewExit;
  12. BEGIN
  13.      ExitProc:=PrinterExit;
  14.      {$i-}
  15.      Close(Lst);
  16.      {$i+}
  17. END;
  18.  
  19. BEGIN
  20.      PrinterExit:=ExitProc;
  21.      ExitProc:=@NewExit;
  22.      Assign(Lst,'LPT1');
  23.      {$i-}
  24.      reset(Lst);
  25.      If InOutRes<>0 then writeln('Can''t open printer-port: LPT1');
  26.      {$i+}
  27. END.