Delphi Определение Версии Windows

В Delphi можно определить версию Windows с помощью вызова WinAPI функции GetVersionEx, которая поддерживается в Windows XP и более старых версиях операционной системы.

var  osinfo: TOSVERSIONINFO;begin  ZeroMemory(@osinfo, SizeOf(TOSVERSIONINFO));  osinfo.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);  if GetVersionEx(osinfo) then  begin    // вывод информации о версии Windows    ShowMessage(Format('Windows version: %d.%d Build %d', [osinfo.dwMajorVersion, osinfo.dwMinorVersion, osinfo.dwBuildNumber]));  end;end;

Функция GetVersionEx заполняет структуру TOSVERSIONINFO, которая содержит информацию о версии операционной системы, включая номер версии, номер сборки и тип операционной системы (клиентская или серверная).

Для более новых версий Windows (начиная с Windows Vista) рекомендуется использовать функцию VerifyVersionInfo из библиотеки Kernel32.dll. Эта функция предоставляет расширенную информацию о версии Windows и позволяет проверять наличие определенных функций и возможностей в операционной системе.

Однако, необходимо учитывать, что версия Windows может варьироваться в зависимости от установленных обновлений и пакетов обновлений.