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.