Vista + GetVersionEx

← →
Darvin © (2007-05-10 10:01) [0]

Здравствуйте.
Вопрос к тем, у кого утановлена виста, какие значения вернет функция GetVersionEx?

← →
DVM © (2007-05-10 10:24) [1]

VER_PLATFORM_WIN32_NT
MajorVer = 6

← →
DVM © (2007-05-10 10:25) [2]

Не надо забывать еще, что Windows Server "Longhorn" тоже вернет 6.

← →
Darvin © (2007-05-10 10:28) [3]

спасибо

← →
Darvin © (2007-05-10 10:30) [4]

>DVM © (10.05.07 10:25) [2]
А разделить Vista и Longhorn можно, например MinorVer?

> А разделить Vista и Longhorn можно

можно, но по другому критерию.

if ((OsVerInfo.wProductType = VER_NT_SERVER) or
(OsVerInfo.wProductType = VER_NT_DOMAIN_CONTROLLER)) then
Result := OsWinServerLonghorn // Windows Server "Longhorn"

TOsVersionInfoExA = record
ov: TOsVersionInfoA;
wServicePackMajor: Word;
wServicePackMinor: Word;
wSuiteMask: Word;
wProductType: Byte;
wReserved: Byte;
end;
TOSVersionInfoEx = TOSVersionInfoExA;

var
OsVerInfo: TOSVersionInfoEx;

FillChar(OsVerInfo, SizeOf(OsVerInfo), 0);
OsVerInfo.ov.dwOSVersionInfoSize := Sizeof(TOsVersionInfoExA);
bOsVersionInfoEx := GetVersionExA(OsVerInfo.ov);
if not bOsVersionInfoEx then
begin
OsVerInfo.ov.dwOSVersionInfoSize := Sizeof(TOsVersionInfoA);
if not GetVersionExA(OsVerInfo.ov) then exit;
end;

Vista + GetVersionEx Найти похожие ветки