Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Вниз

Определить систему   Найти похожие ветки 

← →
Vitekkk   (2006-01-24 11:08) [0]

Какая 95-98-2000-XP ?
есть код, но не определяет XP ,считает ее 2000,
есть ли другой код?

---

← →
Игорь Шевченко ©   (2006-01-24 11:12) [1]

> есть код


Где ?

---

← →
Плохиш ©   (2006-01-24 11:13) [2]

Чем переменные Win32Platform/Win32MajorVersion/Win32MinorVersion/Win32BuildNumber не угодили?

---

← →
Vitekkk   (2006-01-24 13:17) [3]

вот код
как видно код древний и константы XP нет


type
TOSVer = (osUnknown, os95, os95OSR2, os98, os98SE, osNT3, osNT4, os2K, osME);

var
OS: TOSVersionInfo;
begin
ZeroMemory(@OS,SizeOf(OS));
OS.dwOSVersionInfoSize := SizeOf(OS);
GetVersionEx(OS);
Result := osUnknown;
if OS.dwPlatformId = VER_PLATFORM_WIN32_NT then
case OS.dwMajorVersion of
3: Result := osNT3;
4: Result := osNT4;
5: Result := os2K;
end
else
if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 0) then
begin
Result := os95;
if (Trim(OS.szCSDVersion) = "B") then
Result := os95OSR2;
end
else
if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 10) then
begin
Result := os98;
if Trim(OS.szCSDVersion) = "A" then
Result := os98SE;
end;


---

← →
Плохиш ©   (2006-01-24 13:24) [4]

WinXP имеет версию 5.1

---

← →
Игорь Шевченко ©   (2006-01-24 13:38) [5]

> case OS.dwMajorVersion of
> 3: Result := osNT3;
> 4: Result := osNT4;
> 5: Result := os2K;

5:
 if Win32MinorVersion = 0 then
  Result := os2K
 else
  Result := osXP

---

← →
Vitekkk   (2006-01-24 13:44) [6]

СПАсибо

как я понял для  2003  надо будет ввести свою константу?

---

← →
Игорь Шевченко ©   (2006-01-24 14:16) [7]

Vitekkk   (24.01.06 13:44) [6]

И для Vista тоже

Для Win2003 - 5.2
Для Vista     - 6.0

---

← →
Vitekkk   (2006-01-24 18:15) [8]

еще раз спасибо -  вы гуру!

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Наверх

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