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