Как определить, является ли текущая операционная система Windows 8.1 в скрипте на Паскале в Inno Setup?

Delphi , Программа и Интерфейс , Инсталяция

Если вам нужно определить, является ли текущая операционная система Windows 8.1, вы можете воспользоваться функцией GetWindowsVersion, доступной в Inno Setup. Эта функция возвращает число, представляющее версию Windows в формате MMNNBBBB (где M - основная версия, N - номер версии, B - номер сборки).

Windows 8.1 - это версия 6.3, поэтому, чтобы проверить, является ли текущая операционная система Windows 8.1, вы можете сравнить возвращаемое значение GetWindowsVersion с 6.3.

Вот как это можно сделать в скрипте на Паскале в Inno Setup:

function IsWindows81: Boolean;
begin
  Result := (GetWindowsVersion = $06030000);
end;

Эта функция вернет True, если текущая операционная система - Windows 8.1, и False в противном случае.

Если вам нужно проверить, является ли текущая операционная система Windows 8.1 или более поздней версией, вы можете использовать следующий код:

function IsWindows81OrLater: Boolean;
begin
  Result := (GetWindowsVersion >= $06030000);
end;

Эта функция вернет True, если текущая операционная система - Windows 8.1 или более поздняя версия, и False в противном случае.

Например, вы можете использовать эти функции в событии InitializeSetup, как показано в псевдокоде из вопроса:

function InitializeSetup(): Boolean;
begin
  if IsWindows81 then
    begin
      Result := IsKBInstalled('KB2919355');
      if not Result then
        MsgBox('Windows Update package "KB2919355" not found.', mbError, MB_OK);
    end
  else
    begin
      Result := True;
    end;
end;

В этом примере, если текущая операционная система - Windows 8.1, функция InitializeSetup проверяет наличие определенного обновления Windows. Если обновление не найдено, отображается сообщение об ошибке. Если текущая операционная система не Windows 8.1, функция сразу возвращает True.

Создано по материалам из источника по ссылке.

Как определить, является ли текущая операционная система Windows 8.1 в скрипте на Паскале в Inno Setup?

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Инсталяция ::