{----- Running Windows NT Test1 --------}
Function Running_Windows_NT_Test1: Boolean;
Var TestIt: Boolean;  OS: St;
Begin

{
  When Running a DOS Application Windows NT
  sets and enviorment var OS=Windows_NT.
  Need to have a Function UpShift to upper case a string.
}

TestIt:=False;
OS:=UpShift(GetEnv('OS'));
If OS='WINDOWS_NT' Then TestIt:=True;

Running_Windows_NT_Test1:=TestIt;

End; { End Function }

{----- Running Windows NT Test2 --------}
Function Running_Windows_NT_Test2: Boolean;
Var TestIt: Boolean;  Var Regs: Registers;
Begin

TestIt:=False;

{
   Use Interrupt 21h, function 3306h must test both
   registers Bl and BH.
}

Regs.AX:=$3306;
MsDos(Regs);

If (Regs.BL=5)  and
   (Regs.BH=50) Then TestIt:=True;  { Windows NT 3.1 Note: 3.11 may differ }

Running_Windows_NT_Test2:=TestIt;

{ Function help from Kurt Barthelmess (TeamB) }

End; { End Function }
