Как определить версию Windows ?

← →
Leonid (2005-04-25 14:40) [0]

Т.е. 95,98, 2000 и т.д.

← →
Алхимик © (2005-04-25 14:49) [1]

Запустить консоль, набрать "ver"

← →
Marser © (2005-04-25 14:51) [2]

Используйте GetVersionEx

← →
Jay1982 © (2005-04-25 15:06) [3]

uses VCLUtils; GetWindowsVersion

← →
Юрий Зотов © (2005-04-25 15:09) [4]

А можно и ничего не использовать, все уже есть в SysUtils, просто берем готовое: Win32Platform, Win32MajorVersion, Win32MinorVersion, Win32BuildNumber, Win32CSDVersion.

← →
Marser © (2005-04-25 18:19) [5]

> Юрий Зотов © (25.04.05 15:09) [4]

В вопросе не указана среда разработки. А если это не Делфи?

← →
Суслик © (2005-04-25 18:24) [6]

а если это java?

← →
mgcr © (2005-04-25 18:33) [7]

> В вопросе не указана среда разработки. А если это не Делфи?

"Ты, когда в Шереметьево прилетел, красный флаг видел ? Так вот, его действие распространяется на всю территорию"
(с) известный анекдот.

Я к тому, что сайт называется "Мастера Delphi", что по умолчанию определяет среду разработки.

← →
Marser © (2005-04-25 18:37) [8]

> mgcr © (25.04.05 18:33) [7]

Есть ещё FreePascal :-)
А раздел всё равно Win API.

← →
Юрий Зотов © (2005-04-25 18:54) [9]

> Marser © (25.04.05 18:19) [5]

А если это не Делфи, то ее надо выбросить и перейти на Delphi. Это же очевидно.

← →
LineSoft © (2005-04-26 13:35) [10]

type TOSVersion = (osUnknown, osUnknown9x, osUnknownNT, osWin95, osWin98,osWin98SE, osWinME, osWinNT, osWin2000, osXP);

function GetOSVersion : TOSVersion;
var
osVerInfo : TOSVersionInfo;
majorVer, minorVer : Integer;
begin
result := OsUnknown;
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
begin
majorVer := osVerInfo.dwMajorVersion;
minorVer := osVerInfo.dwMinorVersion;
case osVerInfo.dwPlatformId of
VER_PLATFORM_WIN32_NT :
Case majorVer of
4:result := OsWinNT;
5: if minorVer=0 then result := OsWin2000
else if minorVer=1 then result := OsXP else result := osUnknownNT;
else result := osUnknownNT;
end; {Case majorVer of}
VER_PLATFORM_WIN32_WINDOWS :
case majorVer of
4: Case minorVer of
0:result := OsWin95;
10: if osVerInfo.szCSDVersion[1] = "A" then result := OsWin98SE else result := OsWin98;
90: result := OsWinME;
else result := osUnknown9x;
end;{Case minorVer of}
else result := osUnknown9x;
end;{case majorVer of}
else result := OsUnknown;
end;{case osVerInfo.dwPlatformId of}
end;{if GetVersionEx(osVerInfo) then}
end;

Подарок. Нашел где-то в сети.

← →
Юрий Зотов © (2005-04-26 17:35) [11]

> LineSoft © (26.04.05 13:35) [10]

Велосипед - подарок хороший, что и говорить.

← →
mgcr © (2005-04-26 17:37) [12]

> Велосипед - подарок хороший, что и говорить

Причем, с третьим квадратным колесом в виде локальных переменных.

Можете сами пописать, если более нечем заниматься.
Если не задавать вопросов сразу, можно найти практически все. (Цитирую Яндекс - их любимый слоган)
С уважением к значкам.

Marser © (25.04.05 18:37) [8]
Есть ещё FreePascal :-)
А раздел всё равно Win API.

Первое офтопик здесь, а второе ЮЗ доказал, что нет.

> Первое офтопик здесь, а второе ЮЗ доказал, что нет.

А я доказал, что да :-P (getversionex)
Вот оригинал из SysUtils:
procedure InitPlatformId; var OSVersionInfo: TOSVersionInfo; begin OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo); if GetVersionEx(OSVersionInfo) then with OSVersionInfo do begin Win32Platform := dwPlatformId; Win32MajorVersion := dwMajorVersion; Win32MinorVersion := dwMinorVersion; Win32BuildNumber := dwBuildNumber; Win32CSDVersion := szCSDVersion; end; end;

Как определить версию Windows ? Найти похожие ветки