Program Windows_detekt;

Uses
Crt,
Dos;

Var
Regs : Registers;

Function Win3X : Boolean;
begin
Regs.AX := $4680;
Intr($2F, Regs);
if Regs.AX <> 0 then
begin
Regs.AX := $1600;
Intr($2F, Regs);
if Regs.AL in [$00,$80,$01,$FF] then
Win3X := False
else
Win3X := True;
end
else
Win3X := True;
end;


Function WinVer :Word;
begin
Regs.AX := $1600;
Intr($2F, Regs);
WinVer := Regs.AX;
end;


begin
ClrScr;
if Win3X then
begin
Writeln('Windows is Running! ');
Writeln('Version Running is : ', Lo(WinVer), '.', Hi(WinVer));
end
else
Writeln('Windows is not Running!');
end.