| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить версию Windows ?
Leonid © (2005-04-25 14:40:00)Т.е. 95,98, 2000 и т.д.
Marser (2005-04-30 01:47:00) [1]
> Первое офтопик здесь, а второе ЮЗ доказал, что нет.
А я доказал, что да :-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;
LineSoft (2005-04-29 14:33:00) [2]>Юрий Зотов © (27.04.05 09:50) [14]
А разве плохо пример посмотреть?
Anatoly Podgoretsky (2005-04-27 09:57:00) [3]Marser © (25.04.05 18:37) [8]
Есть ещё FreePascal :-)
А раздел всё равно Win API.
Первое офтопик здесь, а второе ЮЗ доказал, что нет.
Anatoly Podgoretsky (2005-04-27 09:55:00) [4]Marser © (25.04.05 18:19) [5]
Тогда это офтопик
Юрий Зотов (2005-04-27 09:50:00) [5]> LineSoft © (26.04.05 18:18) [13]
> Можете сами пописать, если более нечем заниматься.
Вот именно. [4] читали?
LineSoft (2005-04-26 18:18:00) [6]Можете сами пописать, если более нечем заниматься.
Если не задавать вопросов сразу, можно найти практически все. (Цитирую Яндекс - их любимый слоган)
С уважением к значкам.
mgcr (2005-04-26 17:37:00) [7]
> Велосипед - подарок хороший, что и говорить
Причем, с третьим квадратным колесом в виде локальных переменных.
Юрий Зотов (2005-04-26 17:35:00) [8]> LineSoft © (26.04.05 13:35) [10]
Велосипед - подарок хороший, что и говорить.
LineSoft (2005-04-26 13:35:00) [9]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-25 18:54:00) [10]> Marser © (25.04.05 18:19) [5]
А если это не Делфи, то ее надо выбросить и перейти на Delphi. Это же очевидно.
Marser (2005-04-25 18:37:00) [11]
> mgcr © (25.04.05 18:33) [7]
Есть ещё FreePascal :-)
А раздел всё равно Win API.
mgcr (2005-04-25 18:33:00) [12]
> В вопросе не указана среда разработки. А если это не Делфи?
"Ты, когда в Шереметьево прилетел, красный флаг видел ? Так вот, его действие распространяется на всю территорию"
(с) известный анекдот.
Я к тому, что сайт называется "Мастера Delphi", что по умолчанию определяет среду разработки.
Суслик (2005-04-25 18:24:00) [13]а если это java?
Marser (2005-04-25 18:19:00) [14]
> Юрий Зотов © (25.04.05 15:09) [4]
В вопросе не указана среда разработки. А если это не Делфи?
Юрий Зотов (2005-04-25 15:09:00) [15]А можно и ничего не использовать, все уже есть в SysUtils, просто берем готовое: Win32Platform, Win32MajorVersion, Win32MinorVersion, Win32BuildNumber, Win32CSDVersion.
Jay1982 (2005-04-25 15:06:00) [16]
uses VCLUtils;
GetWindowsVersion
Marser (2005-04-25 14:51:00) [17]Используйте GetVersionEx
Алхимик (2005-04-25 14:49:00) [18]Запустить консоль, набрать "ver"
| |
