wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 43 -> Версия для печати

Вопрос и Ответ 43

Вопрос и Ответ 43

Вопросы и Ответы

      43. Как в приложении узнать версии Windows и DOS?

      Для этого, можно воспользоваться следующей функцией:

      function GetVersion: LongInt;

      она возвращает в старшем слове версию DOS, а в младшем - версию Windows.

      Пример:

      ............

      procedure TForm1.FormCreate(Sender: TObject);
      VAR

        WinV: Word;
        DosV: Word;

      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;

      ............

...предыдущая страница следующая...
оглавление

Rambler's Top100