| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить версию Windows? [D7, Win95/98, Win2k, WinXP]
Zhirnov Maxim © (2003-09-25 08:59:00)
Здравствуйте.
Подскажите, пожалуйста, как программно определить версию Windows. Как это сделать средствами WinAPI и где это можно найти в реестре?
Спасибо.
kostik78ua (2003-09-25 09:31:00) [1]
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;
kkostik (2003-09-25 09:28:00) [2]
GetVersionEx
| |
