home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / win_os2.swg / 0003_WINCHECK.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  621b  |  40 lines
  1. {
  2. >How can I check from my Dos Program that Windows are running in
  3. >the background?
  4. }
  5.  
  6. Unit Chk4Win;
  7.  
  8. Interface
  9.  
  10. Type
  11.   Win3ModeType = (NoWin, RealStd, Enhanced);
  12.  
  13. Function CheckForWin3 : Win3ModeType;
  14.  
  15. Implementation
  16.  
  17. Function CheckForWin3 : Win3ModeType;  Assembler;
  18. Asm
  19.   mov    ax,1600h
  20.   int    2Fh
  21.   cmp    al,1
  22.   jbe    @@CheckRealStd
  23.   cmp    al,80h
  24.   jae    @@CheckRealStd
  25.   mov    al,2
  26.   jmp    @@ExitPoint
  27. @@CheckRealStd:
  28.   mov    ax,4680h
  29.   int    2Fh
  30.   or     ax,ax
  31.   jnz    @@notWin
  32.   mov    al,1
  33.   jmp    @@ExitPoint
  34. @@notWin:
  35.   xor    al,al
  36. @@ExitPoint:
  37. end;
  38.  
  39. end.
  40.