[ZVSRus]

Vanadiy777,
В Result ничего править не нужно.
Поиграйся с циферками if IsWindowsVersionOrNewer(10, 0).

[Vanadiy777]

В Result ничего править не нужно. Поиграйся с циферками if IsWindowsVersionOrNewer(10, 0). »

ZVSRus,
Result не трогаю...
Играюсь с циферками в if IsWindowsVersionOrNewer...

Смотри, что получается:
Если ставлю if IsWindowsVersionOrNewer(6, 2), то нормально запускается на 10-11, но и на 8-ке тоже запускается (чего совсем не хотелось бы...).
На 7-ке, как и должно быть, выдает окно о несоответствии.
Если ставлю if IsWindowsVersionOrNewer(6, 3), то сразу окно о несоответствии на всех системах...

Похоже, что в этом компиляторе, процедура GetWindowsVersionEx так же не понимает новые Major, Minor,
так же как и директива MinVersion...

Осталось только попробовать костыль с реестром, через CurrentVersion...

Очень не хочется собирать в другом компиляторе, т.к. придется пожертвовать некоторыми элементами интерфейса.

[iglezz]

Похоже, что в этом компиляторе, процедура GetWindowsVersionEx так же не понимает новые Major, Minor, »

Именно так, это было исправлено в версии 5.5.6

И это можно легко исправить самому через изменение манифеста:

1. Открыть Setup.e32 и SetupLdr.e32 в Resource Hacker
2. Открыть Manifest
там в конце xml-манифеста будет секция

Код:

   <application>
        <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
        .....
    </application>

её надо исправить на

Код:

    <application>
        <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
        <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
        <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
        <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
        <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
    </application>

после этого скомпилировать изменённый манифест (F5)
3. Сохранить изменённый файл

Код для тестирования

Код:

procedure TestWindowsVersion();
var 
  V: TWindowsVersion;
begin
  GetWindowsVersionEx(V);

  MsgBox(Format( \
    'Major'#09'%d'#13 \
    'Minor'#09'%d'#13 \
    'Build'#09'%d'#13 \
    'SPMajor'#09'%d'#13 \
    'SPMinor'#09'%d'#13 \
    , [V.Major, V.Minor, V.Build, V.ServicePackMajor, V.ServicePackMinor]), mbInformation, MB_OK);
end;

function InitializeSetup(): Boolean;
begin
  TestWindowsVersion()	
	Result := False
end;

[Vanadiy777]

iglezz,
Просто - СУПЕР!!!
Теперь работает все.

Спасибище Вам огромаднейшее!!!

[ZVSRus]

Если можно, окно об удалении настроек программы.

Какие действия будут происходить под кнопкой "Да" в информационном окне "Удалить настройки?"

PS: Вы делаете закосы под других репакеров, а они не будут возмущаться?.

[DA-Bro]

ZVSRus, Здравствуйте! Да нет никаких закосов. Я смотрю функциональность, которая мне нужна. Тем более у каждого скрипт индивидуален. И в Вашем исполении он уже заметно отличается. Тем более я его ещё в процессе буду изменять под свои предпочтения.

Какие действия будут происходить под кнопкой "Да" в информационном окне "Удалить настройки?" »

Будет удаляться ключ в реестре или папка с настройками в "Roaming", смотря по обстоятельствам.

[Vanadiy777]

Вы своим флудом всю тему засрали!. Многие тему по InnoSetup на данном форуме стали стороной обходить. »

ZVSRus, DA-Bro,
Получается, что это вы тему-то засрали, превратив ее в личный чат...
На протяжении шести страниц вы ведете какой-то междусобойчик,
кидаясь отдельными фразами и готовыми ехе, а в теме выхлопа - ноль, не смотря на многочисленные просьбы...
Остальным, видимо, в личке обмениваетесь...

Как-то не по пионерски получается... Вы не находите?

Поэтому многие и обходят эту тему стороной...

но свои лайки крендель получил. »

ZVSRus, это, видимо, Вы на меня намёкиваете?
Так не могу я людям запретить ставить лайк под моим сообщением, если оно понравилось, даже если оно не несет смысловой нагрузки.
Это право каждого...

А "хотелки" у DA-Bro не закончатся, видимо, никогда...

Извините, коллеги, ничего личного...