|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 9] |
|
Скрипты Inno Setup. Помощь и советы [часть 9]
|
Ветеран Сообщения: 1269 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов!
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы [часть 6] | Скрипты Inno Setup. Помощь и советы [часть 6].7z Скрипты Inno Setup. Помощь и советы [часть 7] | Скрипты Inno Setup. Помощь и советы [часть 7].7z Скрипты Inno Setup. Помощь и советы [часть 8] | Скрипты Inno Setup. Помощь и советы [часть 8].7z |
|
Отправлено: 16:09, 04-04-2018 |
Старожил Сообщения: 352
|
Профиль | Отправить PM | Цитировать Цитата Beavimo:
CODE
Приводим код в порядок и сразу видим место где косяк зарыт:
function InitializeSetup(): Boolean; var FileName: String; CurrentVersion, MinVersion, MaxVersion: TFileVersion; begin FileVersionSetI(MinVersion, 1,2,0,0); FileName := ExpandConstant('{reg:HKLM\SOFTWARE\Code}') + '\Test.exe'; if not FileExists(FileName) then begin MsgBox('Установка Прекращена:' #13#13 'Файл (' + ExtractFileName(FileName) + ') не найден!', mbCriticalError, MB_OK); Result := False; Exit; end; FileVersionSetF(CurrentVersion, FileName); if (GetSHA1OFFile(FileName) = Lowercase('AD030D5606A2DCFA75EBC425A70730F23E7F07AB')) then // Здесь идёт простое присваивание True/False: // Result:=MsgBox('Обновление уже установлено:' #13#13 'Все равно установить?', mbInformation, MB_YESNO) = IDYES; // хотя в случае False надо Exit делать. Поэтому сия строчка выкидывается и // вместо неё пишется: if MsgBox('Обновление уже установлено:' #13#13 'Все равно установить?', mbInformation, MB_YESNO) <> IDYES then begin Result := False; Exit; end; if FileVersionCompare(CurrentVersion, MinVersion) > -1 then Result := True else begin MsgBox ('Установка Прекращена!' #13#13 'Версия Установленной Программы: ' + FileVersionToStr(CurrentVersion) + #13#13 'Минимальная Версия для Обновления: ' + FileVersionToStr(MinVersion), mbCriticalError, MB_OK); Result := False; Exit; end; FileVersionSetI(MaxVersion, 1,4,0,0); FileName := ExpandConstant('{reg:HKLM\SOFTWARE\Code}') + '\Test.exe'; FileVersionSetF(CurrentVersion, FileName); if FileVersionCompare(CurrentVersion, MaxVersion) < 1 then Result := True else begin MsgBox('Установка Прекращена!' #13#13 'Версия Установленной Программы: ' + FileVersionToStr(CurrentVersion) + #13#13 'Максимальная Версия для Обновления: ' + FileVersionToStr(MaxVersion), mbCriticalError, MB_OK); Result := False; Exit; end; end; Напоминание №2 о форматировании: В каталоге установленного Inno Setup есть каталог Examples. Там в примерах стоит посмотреть как надо форматировать код, чтобы у него читабельность была на таком уровне, когда структура видна беглым взглядом. |
|
Отправлено: 12:11, 14-01-2020 | #451 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 64
|
Профиль | Отправить PM | Цитировать |
Последний раз редактировалось Beavimo, 14-01-2020 в 12:40. Отправлено: 12:34, 14-01-2020 | #452 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Beavimo, хотите бесплатный совет? Чем меньше Вы будете заморачиваться подобными, никому не нужными,
|
Отправлено: 17:42, 14-01-2020 | #453 |
SHVtYW4= Сообщения: 3451
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Скрытый текст
Пробовал 6.0.3 - Что-то совсем не проникся.
По сравнению с 6.0.2 - Расширенная Inno 5.5.1 так не уязвима к взломам/распаковке. 6.0.3 кривая, раз 5 перекомпилировал чтоб собрать пакет - Иначе на выходе готового пакета в разных местах выводило ошибку. И т.д. Лучше NSIS использовать чем Inno 6, ещё лучше на делфи инсталлятор писать. |
|
------- Отправлено: 17:43, 14-01-2020 | #454 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Nordek:
Nordek, даже не знал, что уже шестая вышла. |
|
Отправлено: 18:19, 14-01-2020 | #455 |
SHVtYW4= Сообщения: 3451
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Скрытый текст
ispack-5.5.1.exe и ispack-5.5.1-unicode.exe + инструкция из сообщения темы
Или информация во вложении. Цитата Iska:
|
||
------- Отправлено: 21:28, 14-01-2020 | #456 |
Пользователь Сообщения: 64
|
Профиль | Отправить PM | Цитировать Добрый день, такая строка делает ярлык с параметром на рабочем столе:
код
получается в графе Обьект Обьект: "C:\Program Files\BASE\BASE.bat" test а как зделать чтоб было вот так Обьект: test "C:\Program Files\BASE\BASE.bat" |
Отправлено: 17:49, 17-01-2020 | #457 |
Alien Сообщения: 4262
|
Профиль | Отправить PM | Цитировать Отключил все страницы, кроме SelectDirPage, на SelectDirPege вынес ProgressGauge (прогресс бар). Как отключить страницу установки (wpInstalling) и возможно ли? Задача оставить только SelectDirPage и прогресс бар на ней.
|
Отправлено: 18:02, 17-01-2020 | #458 |
Ветеран Сообщения: 1269
|
Профиль | Отправить PM | Цитировать Цитата boss911:
|
|
Отправлено: 11:19, 18-01-2020 | #459 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 12:21, 18-01-2020 | #460 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты Inno Setup. Помощь и советы [часть 7] | El Sanchez | Автоматическая установка приложений | 2499 | 02-02-2015 08:59 | |
Скрипты Inno Setup. Помощь и советы [часть 6] | El Sanchez | Автоматическая установка приложений | 2494 | 10-03-2014 11:51 | |
Скрипты Inno Setup. Помощь и советы [часть 5] | El Sanchez | Автоматическая установка приложений | 1999 | 28-03-2013 19:09 | |
Скрипты Inno Setup. Помощь и советы [часть 4] | El Sanchez | Автоматическая установка приложений | 2099 | 22-05-2012 23:16 | |
Скрипты Inno Setup. Помощь и советы [часть 3] | Serega | Автоматическая установка приложений | 3755 | 26-10-2011 17:58 |
|