Re: Infinity-Box и Windows-7
#9
Цитата:
Сообщение от ravt
IHelper, может попробовать так 
Код:
Var ver: word;
begin
ver:=GetVersion and $0000FFFF;
ver:=Lo(ver);
if ver=5 then showmessage('windows XP'); // windows XP
if ver=6 then showmessage('windows Vista'); // windows Vista
if ver=7 then Showmessage('windows Seven'); // windows Seven
end;
|
ОФФтопик:
<Занудство>
У windows 7 мажор версия = 6, к минор добавили 1, т.к. многие неправильно проверяли версию и при переходе на Vista появились проблемы
Да и GetVersion объявлена устаревшей и использовать ее для обнаружения новой версии ОС - имхо bad practice...
</Занудство>
|
У Microsoft есть Windows Application Compatibility Toolkit для обнаружения проблем при переводе ПО на новую версию ОС, правда, я не уверен, что на данный момент доступна версия для Windows 7