function GetWindowsVersion: Cardinal;
Возвращает номер версии Windows в виде целочисленного значения. Старшие 8 бит определяют основную версию. Следующие 8 бит определяют младшую версию. И последние 16 бит указывают номер сборки. Например, на системе Windows 10 1507 функция вернёт значение $0A002800, что соответствует версии 10.0.10240.
Чтобы получить только старшую версию, используйте: GetWindowsVersion
shr 24. Для получения младшей версии используйте: (GetWindowsVersion
shr 16) and $FF. А чтобы получить номер сборки, используйте: GetWindowsVersion
and $FFFF.
function IsWindows8OrLater: Boolean; begin Result := (GetWindowsVersion >= $06020000); end;