Delphi Studio » Примеры на Delphi » Примеры на Delphi Система » Как узнать версию Windows (or) DOS? »

 
 
 
Приветствуем нового пользователя: Aleks26
 
Реклама на сайте

Как узнать версию Windows (or) DOS?

Автор: GReIIIHuK} | 24-04-2011, 04:22 | Просмотров: 130 | Категория: Примеры на Delphi » Примеры на Delphi Система

0
Как узнать версию Windows (or) DOS?

Пример на Delphi если вам нужно узнать версию Windows и DOS.
var
  WinV: Word;
  DosV: Word;
begin
  begin
    WinV := GetVersion AND $0000FFFF;
    DosV := GetVersion SHR 16;
    Label1.Caption := IntToStr(Hi(DosV)) + '.' + IntToStr(Lo(DosV));
    Label2.Caption := IntToStr(Lo(WinV)) + '.' + IntToStr(Hi(WinV));
  end;
Прямая ссылка на страницу: HTML ссылка: Ссылка для форумов:
Теги: Windows, Dos, Пример, Delphi
  • Распечатать
  • 85
 (голосов: 1)
А также:
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
 
-й день
Онлайн:

Delphi Studio

Авторы сайта: SkyLine32 & FeniXElite
 2010-2011 © Delphi Studio
Наверх
rss