Билл Гейтс получил Нобелевскую премию за то, что первый научился продавать гемморой за деньги.
На следующий год Линус Торвальдс так же получил Нобелевскую премию за то, был первым, у которого бесплатно забирали гемморой.
Я не могу понять каким образом моя 16-битная программа может
различить Win95 и WinNT.
Классический вопрос по Delphi 1!
Программный код, который вы предоставили, пытается определить, является ли операционной системой Windows NT (WinNT) или нет, используя функцию GetWinFlags, которая возвращает значение, указывающее тип Windows, работающего на системе.
В Delphi 1 функция GetWinFlags возвращает значение в диапазоне от $0000 до $FFFF. Константа WF_WINNT определена как $4000, что соответствует высокому биту возвращаемого значения. Если этот бит установлен, то это означает, что Windows NT работает.
Код использует оператор bitwise AND (and) для проверки, имеет ли результат функции GetWinFlags бит WF_WINNT. Если он есть, переменная IsNT будет присвоена значение True, указывая, что Windows NT работает. В противном случае она будет присвоена False.
Что касается юмористических комментариев о Билле Гейтсе и Линусе Торвальдсе, я думаю, они просто являются игривым попыткой пощекотать конкуренцию между Microsoft (Windows) и Linux.
Таким образом, этот код использует функцию GetWinFlags для обнаружения, является ли Windows NT работающей или нет.
В статье автор Питер Белоу рассматривает возможность отличия операционной системы Win95 и WinNT в программе Delphi1 на примере использования константы WF_WINNT.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.