|
Разделы сайта
|
Главная
Покупаем абсолютно любые сайты, не зависимо от посещаемости, тематики и доменного имени.wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 43
Вопрос и Ответ 43
Вопросы и Ответы
43. Как в приложении узнать версии Windows и DOS?
Для этого, можно воспользоваться следующей функцией:
function GetVersion: LongInt;
она возвращает в старшем слове версию DOS, а в младшем - версию Windows.
............
procedure TForm1.FormCreate(Sender:
TObject); WinV: Word; begin WinV := GetVersion AND $0000FFFF; end; ............
VAR
DosV: Word;
DosV := GetVersion SHR 16;
Label1.Caption := IntToStr(Hi(DosV))+'.'+IntToStr(Lo(DosV));
Label2.Caption := IntToStr(Lo(WinV))+'.'+IntToStr(Hi(WinV));
...предыдущая страница следующая...
оглавление