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

← →
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 надо будет ввести свою константу?

Vitekkk (24.01.06 13:44) [6]

И для Vista тоже

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

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

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

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