Как определить, из под какой операционной системы запущена программа

Delphi , ОС и Железо , Windows

If (GetVersion() and $80000000)<>0 then
  //  ...'Windows 95/98'...
else
  //   ... 'Windows NT'...
end;

Типичный фрагмент кода! Цель этого кода - определить операционную систему (OS), под которой запущен программный продукт. В частности, он проверяет, была ли программа запущена под Windows 95/98 или Windows NT.

Как это работает:

1. Функция GetVersion() возвращает значение, указывающее версию Windows.
2. Код проверяет, является ли это значение равно или больше $80000000. Это магическое число, соответствующее операционной системе Windows 95/98.
3. Если условие истинно, то программа была запущена под Windows 95/98, и код выполняет соответствующий блок кода (т.е., 'Windows 95/98'...).
4. В противном случае, если условие ложно, то программа была запущена под Windows NT, и код выполняет альтернативный блок кода (т.е., 'Windows NT'...).

Такой тип кода часто используется в старых приложениях для детекции версии OS и обеспечения совместимости или предоставления специфических функций в зависимости от обнаруженной OS.

Что касается юмора автора, это умелый игрок слов! Когда мы устаем общаться с человеком, мы можем сказать "Заткнись!", но когда мы устаем использовать Windows, мы можем сказать "Выключить!" (что также является действительным командой в Windows!).

Статья описывает способ определения операционной системы, под которой запущена программа, и предлагает пример кода на языке Visual Basic для проверки типа ОС.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::