Определение ОС, из которой зупущена программа, Мы сможем определять это на 100% Опции

[Altair]

Товарищи, это довольно избитая тема, но есть новые достижения, а следовательно должны быть новые обсуждения...
Всем запускать этот код:

Код

program CHECK_OS;
var
valu: word;
Begin
ASM
 MOV AX, 1600h
 INT 2Fh
 MOV valu, AX
END;
writeln('TEST_1,     valu=',valu);
writeln('TEST_1, LO(valu)=',Lo(valu));
writeln('TEST_1, HI(valu)=',hi(valu));
ASM
 MOV AX, 4680h
 INT 2Fh
 MOV valu, AX
END;
writeln('TEST_2,     valu=',valu);
writeln('TEST_2, LO(valu)=',Lo(valu));
writeln('TEST_2, HI(valu)=',hi(valu))
END.

Если у вас 2 ОС, запустите по очереди в обоих, и пишите сюда цифры!
Вот, что у меня получилось:
-----------------------------
WINDOWS 98

2564
4
10
18048
128
70
DOS

5632
0
22
18048
128
70
-------
Итак уже видно, что разница есть у DOS и WIN,
У КОГО ЕСТЬ WIN XP????

Сообщение отредактировано: Oleg_Z - 25.04.2004 5:23