home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPTOOL3.ZIP / INVIS.INC < prev    next >
Encoding:
Text File  |  1987-04-19  |  470 b   |  18 lines
  1.  
  2. (*
  3.  * this function can be called to determine if "SLOW" mode displays are
  4.  * required.  it should be called before each window OPEN/CLOSE action.
  5.  *
  6.  * it is SAFE to call and always returns FALSE when doubledos is not used.
  7.  *
  8.  *)
  9. function invisible: boolean;   {is this the invisible program under doubledos?}
  10. var
  11.    reg:  regpack;
  12. begin
  13.    reg.ax := $e400;   {doubledos return program status}
  14.    msdos(reg);
  15.    invisible := (lo(reg.ax) = 2);
  16. end;
  17.  
  18.