home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N4.ZIP / CRITERR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-04  |  410 b   |  20 lines
  1. unit CritErr;
  2. { Prevents Abort, Retry message on disk failures by replacing the
  3.   interrupt service routine with a "do-nothing" routine. }
  4.  
  5. interface
  6. uses Dos;
  7.  
  8. procedure CritHandler(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP: word);
  9. interrupt;
  10.  
  11. implementation
  12. procedure CritHandler(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP: word);
  13. begin
  14.   AX := 0;
  15. end;
  16.  
  17. begin
  18.   SetIntVec($24,@CritHandler);
  19. end.
  20.