Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

fake having Windows running

The program below will detect Windows below XP.

Is there any TSR (not necessarily made in QB) that will fake having Windows running? What I'm trying to say is that I want to be able to run a TSR under DOS, then run this program and have it tell me that I'm running under Windows even though I'm not.

The reason I'm asking is because I have a program that runs in compatabiliy mode when it detects Windows, and it needs to run in compatabiliy mode even under DOS.


'$INCLUDE: 'QB.BI'

DIM InRegs AS RegType
DIM OutRegs AS RegType

InRegs.AX = &H160A
CALL INTERRUPT(&H2F, InRegs, OutRegs)

IF OutRegs.AX = 0 THEN
PRINT "Windows is running."
ELSE
PRINT "Windows is not running."
END IF
Sign In or Register to comment.