Помощь - Поиск - Пользователи - Календарь
Полная версия: Определение ОС, из которой зупущена программа
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
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????
Altair
СУПЕР! Получилось!
В win 3.11
первую цифру не помню, вторая и третья 3 и 11 (!)
trminator_
Дома попробую под ХР и, смеха ради, под Linux (SuSE 9.0... что, интересно, выдаст =) Тут же не сказано -- определение версии ОС Windows =)

Жалко, BeOS снес давно =)
virt
WINDOWS XP
------------------

5632
0
22
18048
128
70
Altair
Ага, значит хрюшу определяет как ДОС. Ну так и должно быть. Ведь ДОС то лучше чем хрюша. smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.