Здравствуйте, Гость
Воскресенье, 05.02.2012
Определить, из под какой операционной системы запущена программа
Автор: Nomadic 
If (GetVersion() and $80000000)<>0 then
ShowMessage('Windows 95/98')
else
ShowMessage('Windows NT');
Просмотров: 1872
On-line статистика:
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Статистика:
Copyright © 2008-2012 Программирование на Delphi для начинающих и не только
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации
Хостинг от uCoz