Вопрос 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".

 

[sergey3695]

GetWindowsVersionEx используй лучше.
Пример
http://forum.ru-board.com/topic.cgi?forum=5&topic=36421&start=4564&limit=1&m=2
Версии
https://msdn.microsoft.com/en-us/library/windows/desktop/ms724832(v=vs.85).aspx
http://en.wikipedia.org/wiki/List_of_Microsoft_Windows_versions

 

[Silentman]

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

 

[Kotyarko_O]

Silentman, 8.1, "Your windowsversion > 5". Всё норм.

 

[YURSHAT]

Silentman, XP SP3 "your WindowsVersion < 6"