Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Версия операционной сиситемы

Fishka © (2004-10-08 10:35:00)
Подскажите как определить весию операционки.

Okcid (2004-10-08 16:24:00) [1]
Я просто недавно об этом сайте узнал, и в FAQ ещё не успел зайти. Но, думаю, там много чево интерестного есть. Обязательно зайду.

Anatoly Podgoretsky (2004-10-08 14:45:00) [2]
Да в любом FAQ есть, выбирай на вкус, если местный не нравится.

Okcid (2004-10-08 14:32:00) [3]
> CHES
И откуда ты столько знаешь?... :-)

CHES (2004-10-08 13:01:00) [4]
В добавление к Okcid:

DwMajorVersion:DWORD - старшая цифра версии Windows

Windows 95 - 4
Windows 98 - 4
Windows Me - 4
Windows NT 3.51 - 3
Windows NT 4.0 - 4
Windows 2000 - 5
Windows XP - 5
DwMinorVersion: DWORD - младшая цифра версии

Windows 95 - 0
Windows 98 - 10
Windows Me - 90
Windows NT 3.51 - 51
Windows NT 4.0 - 0
Windows 2000 - 0
Windows XP - 1
DwBuildNumber: DWORD

Win NT 4 - номер билда
Win 9x - старший байт - старшая и младшая цифры версии / младший - номер билда
dwPlatformId: DWORD

VER_PLATFORM_WIN32s Win32s on Windows 3.1.
VER_PLATFORM_WIN32_WINDOWS Win32 on Windows 9x
VER_PLATFORM_WIN32_NT Win32 on Windows NT, 2000
SzCSDVersion:DWORD

NT - содержит PСhar с инфо о установленном ServicePack
9x - доп. инфо, может и не быть

Okcid (2004-10-08 11:08:00) [5]
А с помощью GetVersionEx(), будет так:
OSVersion.dwOSVersionInfoSize:=SizeOf(OSVersion); if GetVersion(OSVersion) then begin Label1.Caption:=Format('%d.%d (%d.%s)',[OSVersion.dwMajorVersion, OSVersion.dwMinorVersion,(OSVersion.dwBuildNumber and $FFFF), OSVersion.szCSDVersion]); case OSVersion.dwPlatformID of VER_PLATFORM_WIN32s:Label2.Caption:='Windows 3.1'; VER_PLATFORM_WIN32_WINDOWS:Label2.Caption:='Windows 95'; VER_PLATFORM_WIN32_NT:Label2.Caption:='Windows NT'; else Label2.Caption:=''; end; end;

piople (2004-10-08 10:58:00) [6]

> Okcid

Ну взял все испортил! Пускай бы человек сам допетрил, ему и так много сказали! А так бы он(она) подумал(а) и допетрил(а) сам(а)!!!

Okcid (2004-10-08 10:56:00) [7]
В реестре можно найти дополнительную инфу о windows тут:
HKLM\Software\Microsoft\Windows\CurrentVersion

piople (2004-10-08 10:53:00) [8]
А подробней в реестре смотри ^_^

Fishka (2004-10-08 10:50:00) [9]
Поподробней можно?

piople (2004-10-08 10:49:00) [10]
В реестре посмотреть?!

Okcid (2004-10-08 10:45:00) [11]
Насчёт версии не знаю, но платформа ОС определяется с помощью функции GetVersionEx(OSVersion: TOSVersionInfo)
VER_PLATFORM_WINS32s == Windows 3.1 VER_PLATFORM_WINS32_WINDOWS == Windows 95/98/Me VER_PLATFORM_WINS32_NT == Windows NT/2000/XP

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »