Форум: "Прочее";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];
Вниз
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?
← →
DVM © (2007-05-10 10:35) [5]
> А разделить Vista и Longhorn можно
можно, но по другому критерию.
if ((OsVerInfo.wProductType = VER_NT_SERVER) or
(OsVerInfo.wProductType = VER_NT_DOMAIN_CONTROLLER)) then
Result := OsWinServerLonghorn // Windows Server "Longhorn"
← →
DVM © (2007-05-10 10:37) [6]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;
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.06 c
