Вопрос GetWindowsVersion

Статус
В этой теме нельзя размещать новые ответы.

Silentman

Новичок
Доброго времени суток! Есть некая программа, которая после установки и запуска создаёт файлы в Windows XP в {userappdata}, а в Windows 7 {%USERPROFILE}, но после деинсталляции хочу сделать, чтоб эти файлы удалялись с запросом - подумал провести проверку на версию Windows. В справке нашёл GetWindowsVersion (как раз определяет номер версии Windows) - вроде как то, что мне нужно, набросал код проверки:
Function forWin7():boolean;
begin
if ((GetWindowsVersion shr 24) = 6) then Result := true else Result := False;
end;
Но возник вопрос: при такой записи будет ли определяться, если версия windows = 5 или, предположим, = 7 (т. е. не равна 6). Т.к. впервые с этим сталкиваюсь, меня этот вопрос вогнал в ступор:).
 

Kotyarko_O

Новичок
при такой записи будет ли определяться, если версия windows = 5 или, предположим, = 7 (т. е. не равна 6).
По коду, любая версия, которая не "6", будет возвращать False. "4,5,7" и т.д. все они вернут False.
True будет только при "6".
 

Silentman

Новичок
Сделал пробный набросок, прошу проверить на разных система (XP,7,8,10) (по идее на 7,8,10 должно появиться сообщение "Your windowsversion > 5" а на ХР < 6). На вин 7 проверил, вроде работает как надо.
 

Вложения

Статус
В этой теме нельзя размещать новые ответы.
Сверху