Как отличить Windows 7 от Windows Server 2008 R2: использование GetVersionEx

Delphi , ОС и Железо , Windows

Вопрос, поставленный в запросе, заключается в том, как отличить операционные системы Windows 7 и Windows Server 2008 R2, используя функцию GetVersionEx. Обе операционные системы возвращают одинаковые основные и второстепенные номера версий, что затрудняет их идентификацию по этим параметрам. Для решения этой задачи необходимо обращаться к дополнительным полям структуры osVerInfo.

Пример кода на Object Pascal (Delphi) для определения версии операционной системы:

unit GetOSVersionInfo;

interface

uses
  Windows;

function GetOSInfo: string;

implementation

uses
  Registry,
  System.SysUtils;

function GetOSInfo: string;
var
  OSVI: TOSVersionInfo;
  OSVI_NT: TOSVersionInfoEx;
  SI: TSystemInfo;
  pdwReturnedProductType: DWORD;
begin
  Result := 'Error';
  try
    OSVI.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
    if not GetVersionEx(OSVI) then
      Exit;

    // Проверяем, является ли платформа Windows NT
    if OSVI.dwPlatformId = VER_PLATFORM_WIN32_NT then
    begin
      OSVI_NT.dwOSVersionInfoSize := SizeOf(TOSVersionInfoEx);
      if GetVersionEx(OSVI_NT) then
      begin
        // Основная логика определения версии ОС
        // ...
      end;

    // Проверяем тип продукта, используя функцию GetProductInfo
    if Assigned(@GetProductInfo) then
    begin
      GetProductInfo(OSVI_NT.dwMajorVersion, OSVI_NT.dwMinorVersion, 0, 0, pdwReturnedProductType);
      case pdwReturnedProductType of
        // Определение типа продукта
        // ...
      end;
     end;
    end;
  except
    // Обработка исключений
  end;
  // Дополнительные проверки и инициализация переменных для динамической загрузки функций
  // ...
end;

initialization
  // Инициализация функций для динамической загрузки
  // ...
end.

Важные моменты для понимания кода:

• Функция GetVersionEx используется для получения информации о версии операционной системы.
• Необходимо обращаться к дополнительным полям структуры TOSVersionInfoEx, чтобы различать Windows 7 и Windows Server 2008 R2.
• Функция GetProductInfo позволяет определить тип продукта, к которому относится операционная система (например, Professional, Enterprise и т.д.).
• Важно обратить внимание на поля wProductType и wSuiteMask структуры TOSVersionInfoEx для детального определения версии ОС.

Пример использования функции GetOSInfo:

program GetOSVersionInfoTest;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  GetOSVersionInfo;
begin
  WriteLn(GetOSInfo);
  ReadLn;
end.

При вызове этой программы в консоли будет выведена информация о текущей версии операционной системы, включая её тип и редакцию.

Заключение:

Используя функцию GetVersionEx и дополнительные поля структуры TOSVersionInfoEx, можно точно определить версию операционной системы Windows, включая различия между Windows 7 и Windows Server 2008 R2. Это позволяет разработчикам писать более надежный и совместимый код для своих приложений.

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

Для идентификации версий операционных систем Windows 7 и Windows Server 2008 R2 необходимо использовать функцию `GetVersionEx` в сочетании с дополнительными полями структуры `TOSVersionInfoEx` и функцией `GetProductInfo`, обращая внимание на поля `wProdu

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

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

:: Главная :: Windows ::