Вопросы и Ответы
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));
...предыдущая страница следующая...
оглавление