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

Автор: Nomadic

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

Просмотров: 3582

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.