Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



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