MCRF.RU - Показать сообщение отдельно

Тема: Infinity-Box и Windows-7

Показать сообщение отдельно

Новое

ravt
Участник

Сообщений:: 1,389

Регистрация:: 16.02.2007

Возраст:: 42

Рейтинг мнений: 2109

Вес репутации: 358

Re: Infinity-Box и Windows-7 #6

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;

19.02.2009, 21:06

2 пользователя(ей) добавили плюсы

gena (28.03.2009), s.Mobi (19.02.2009)

ravt vbmenu_register("postmenu_156543", false); Участник

ravt
Участник