Версия windows - Общие вопросы Delphi

nibufep · 26.10.2014, 12:39

Код:

if CheckWin32Version(5,0) then label10.Caption:='Windows 2000'
else if CheckWin32Version(5,1) then label10.Caption:='Windows XP'
else if CheckWin32Version(6,0) then label10.Caption:='Windows Vista'
else if CheckWin32Version(6,1) then label10.Caption:='Windows 7'
else if CheckWin32Version(6,2) then label10.Caption:='Windows 8'
else if CheckWin32Version(6,3) then label10.Caption:='Windows 8.1';

Всегда определяет как Windows 2000 что не так?

indexx · 26.10.2014, 12:53

Цитата:

что не так?

Логика твоего кода не так. Функция определяет меньше или больше версия среды относительно входных данных. Твоя win больше Windows 2000. Функция вернула истину. else игнорируется, так как первое условие выполнено. Как переписать, думай сам, ибо ответ слишком прост.

Shouldercannon · 26.10.2014, 12:58

RTL.CheckWin32Version. Функция некорректна

nibufep · 26.10.2014, 13:00

Код:

if CheckWin32Version(5,0) then label10.Caption:='Windows 2000';
if CheckWin32Version(5,1) then label10.Caption:='Windows XP';
 if CheckWin32Version(6,0) then label10.Caption:='Windows Vista';
 if CheckWin32Version(6,1) then label10.Caption:='Windows 7';
if CheckWin32Version(6,2) then label10.Caption:='Windows 8';
 if CheckWin32Version(6,3) then label10.Caption:='Windows 8.1';

так?

indexx · 26.10.2014, 13:03

Цитата:

так?

На Label посмотри, и сам ответь на свой вопрос.

Dmitry33RU · 26.10.2014, 13:07

Код:

if CheckWin32Version(4,9) then label10.Caption:='Windows 2000';
if CheckWin32Version(5,0) then label10.Caption:='Windows XP';
if CheckWin32Version(5,9) then label10.Caption:='Windows Vista';
if CheckWin32Version(6,0) then label10.Caption:='Windows 7';
if CheckWin32Version(6,1) then label10.Caption:='Windows 8';
if CheckWin32Version(6,2) then label10.Caption:='Windows 8.1';

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Пробная версия Windows 7	Kix.IV	Windows	10	28.04.2013 20:54
совместим ли Microsoft Office Professional Plus 2010 Beta (x86) с Windows Xp Professional версия 2002 Ser	syperman	Microsoft Office Word	1	17.10.2010 17:00
Настройка и версия windows 7	technik_312	Windows	2	25.03.2010 20:06
Версия Windows!!!	ORBIUS	Windows	6	25.01.2009 14:05
Почему лицензионная версия продукта дороже чем пиратская версия продукта?	multik	Свободное общение	13	13.07.2008 14:40

26.10.2014, 12:58	#3
Shouldercannon Участник клуба Подтвердите свой е-майл Регистрация: 26.01.2008 Сообщений: 1,899	RTL.CheckWin32Version. Функция некорректна