Как определить версию Windows?

← →
Zhirnov Maxim © (2003-09-25 08:59) [0]

Здравствуйте.
Подскажите, пожалуйста, как программно определить версию Windows. Как это сделать средствами WinAPI и где это можно найти в реестре?
Спасибо.

← →
kkostik (2003-09-25 09:28) [1]

GetVersionEx

← →
kostik78ua (2003-09-25 09:31) [2]

function WinVersion: TOSVersionInfo;
begin
FillChar(Result, SizeOf(TOSVersionInfo), 0);
Result.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
GetVersionEx(Result);
end;

function IsWinNT4Plus: Boolean;
begin
with WinVersion do
Result:=(dwPlatformId = VER_PLATFORM_WIN32_NT)and(dwMajorVersion >= 4);
end;

function IsWin9x: Boolean;
begin
with WinVersion do
Result:=(dwPlatformId in [VER_PLATFORM_WIN32_WINDOWS, VER_PLATFORM_WIN32s]);
end;

Как определить версию Windows? Найти похожие ветки