| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Определить систему

Vitekkk ©   (2006-01-24 11:08:00) 

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

---

Vitekkk   (2006-01-24 18:15:00) [1]

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

---

Игорь Шевченко   (2006-01-24 14:16:00) [2]

Vitekkk   (24.01.06 13:44) [6]

И для Vista тоже

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

---

Vitekkk   (2006-01-24 13:44:00) [3]

СПАсибо

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

---

Игорь Шевченко   (2006-01-24 13:38:00) [4]

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

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

---

Плохиш   (2006-01-24 13:24:00) [5]

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

---

Vitekkk   (2006-01-24 13:17:00) [6]

вот код
как видно код древний и константы 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 11:13:00) [7]

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

---

Игорь Шевченко   (2006-01-24 11:12:00) [8]

> есть код


Где ?

---

Наверх