Текущий архив: 2003.11.20;
Скачать: CL | DM;

Вниз

Как определить версию 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;

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.019 c