home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV3N2.ZIP / BADINTR.PAS next >
Encoding:
Pascal/Delphi Source File  |  1992-01-09  |  310 b   |  15 lines
  1.   function IsWindows3 : Boolean;
  2.   var
  3.     Regs : Registers;
  4.   begin
  5.     Regs.AX := $1600;
  6.     Intr($2F, Regs);
  7.     if (Regs.AL <= 1) or (Regs.AL >= $80) then begin
  8.       Regs.AX := $4680;
  9.       Intr($2F, Regs);
  10.       IsWindows3 := Regs.AX = 0;
  11.     end
  12.     else
  13.       IsWindows3 := True;
  14.   end;
  15.