» Inno Setup (создание инсталяционных пакетов)

Это мощное бесплатное средство для создания установочных пакетов (дистрибутивов) программ. Поддерживается шифрование, установка пароля, различные задачи по завершении установки.
По сравнению с NSIS (основной конкурент на бесплатной основе) проще в настройке, имеет более понятную структуру скрипта, но генерит на 200-300 кб больший инсталятор. На данный момент он конкурирует и даже превосходит многие коммерческие установщики по функциональности и стабильности.

Последние версии:
Inno Setup QuickStart Pack (ansi) 5.4.1 [09.02.2011]
Скачать (1.7 Mb)
Inno Setup QuickStart Pack (unicode) 5.4.1 [09.02.2011]
Скачать (2 Mb)
Что нового? | Все сборки
Русский язык для Inno Setup версии 5.4.1 от vadimsva
Скачать | Зеркало

Расширенная версия от китайских собратьев. Домашняя страница ResTools
Inno Setup Compiler 5.4.1 build 110213
Скачать (2.77 Mb) | Зеркало (1.9 Mb) - убраны картинки для уменьшения размера архива
Inno ISCmplr Setup 5.4.1 build 110214
Скачать (1.6 Mb) | Зеркало
Добавляет списку компонентов возможность сворачивать дочерние элементы. Содержит более удобный редактор, кроме того, компилятор имеет множество других возможностей и новых функций. На сайте автора также есть дополнительные библиотеки.
Русский язык для Inno Setup Enhanced (Restools) версии 5.3.10+ (ansi и unicode) от vadimsva
Скачать

Русская справка к версии 5.0.x, автор перевода BagIra (зеркало) | Chm-версия

---

[more=Документация, FAQ, и различные примеры для Inno Setup]

[b]Offline InnoSetup 0.1 - Архивы веток посвященных InnoSetup форума Ru-board. Автор SotM
Предлагаю вашему вниманию оффлайн версии (в формате CHM) веток форума Inno Setup с 1-ой по 11-ую часть.
Для формирования этих файлов я использовал самописную свою программу (она еще в глубокой разработке). Это пока первая альфа версия. Возможно вы найдете ошибки/недочеты внутри CHM.
Часть 1 (1.2 Mb)
Часть 2 (1.2 Mb)
Часть 3 (1.6 Mb)
Часть 4 (2.3 Mb)
Часть 5 (2.6 Mb)
Часть 6 (7.2 Mb)
Часть 7 (7.3 Mb)
Часть 8 (9.0 Mb)
Часть 9 (8.8 Mb)
Часть 10 (15.6 Mb)
Часть 11 (6.2 Mb)

Inno Setup Scripting 5.1 - Руководство по расширенным возможностям Inno Setup от Kindly
Скачать

Inno Setup Extensions Knowledge Base (содержит ответы на многие вопросы) | старая chm-версия

Коллекция скриптов и Сборник вопросов, собранных из этой и предыдущих частей топика от Victor_Dobrov.

Пост с различными скриптами - Собрание различных скриптов

Пост с различными скриптами #2 - Ответы на наиболее частые вопросы.

Сборник скриптов - Сборник скриптов от Krinkels в формате CHM. Версия 1.2
Скачать (60 Kb)

Инструкция по Inno Setup - Инструкция по Inno Setup в формате PDF для начинающих от sjwrec.
Скачать (350 Kb)
[/more][/b] - Здесь можно найти различную документацию, примеры, архивы веток InnoSetup для оффлайн просмотра, и т.д.

[more=Дополнительные библиотеки для Inno Setup]

[b]bass.dll 2.4.7 [30.11.2010] - библиотека для воспроизведения звука.
Описание с офф. сайта:
Цитата:

BASS is an audio library for use in Windows and Mac OSX software. Its purpose is to provide developers with powerful and efficient sample, stream (MP3, MP2, MP1, OGG, WAV, AIFF, custom generated, and more via add-ons), MOD music (XM, IT, S3M, MOD, MTM, UMX), MO3 music (MP3/OGG compressed MODs), and recording functions. All in a tiny DLL, under 100KB in size.

Внимание! У новой bass.dll измененный API, и поэтому она не работает с существующими скриптами, которые писались под версию 2.3. Вашему вниманию предлагается новый скрипт для воспроизведения музыки, который работает с новой bass.dll.
Скачать bass.dll (740 Kb) | Зеркало (375 Kb)

InnoTools Downloader 0.3.5 [15.10.2008] от Sherlock Software
Это скрипт и DLL, которые позволяют вам скачивать файлы с HTTP или FTP из вашей инсталяционной программы.
Скачать (400 Kb) | Что нового?

isSlideShow v1.02 [16.05.2010] от ExpeditorR
Это dll для показа слайд-шоу с эффектами переходов в окне Inno Setup.
В новой версии добавлена возможность выбора эффекта перехода, возможно 12 вариантов (подробнее смотрите readme.rtf). В архиве имеются два примера использования, и подробное описание. isSlideShow.dll может работать в любой версии Windows.
Скачать | Зеркало | | (список изменений)

isProgressBar v1.01 [04.07.2010] от ExpeditorR
Эта библиотека предназначена для отображения прогресс бара для длительных процессов, в которых невозможно показать прогресс бар.
В первую очередь, я думаю, она заинтересует тех, кто занимается репаками игр и использует precomp и другие программы.
Возможны 4 варианта анимации (см. пример в архиве). Так же прекрасно дружит с ISSkin. Дополнительная информация в файле readme.rtf в архиве.
Скачать

isUtils.dll v1.00 [18.08.2010] от ExpeditorR
Библиотека для проверки системных требований. Ключевой особенностью isUtils.dll является то, что вы может написав всего пару-тройку строчек кода выводить всю информацию прямо в окно Inno Setup, при этом возможно использование любых цветов, размеров и шрифтов и всё это займёт всего 4-5 строк кода. Ну, и конечно же имеются функции для ручного вывода и проверки системных требований.
В архиве имеется файл Readme.rtf с подробным описанием всех функций, а так же два примера - автоматической и ручной проверки.
Скачать | Зеркало

ISDone v0.5 final [31.12.2010] от Profrager
Библиотека, включающая в себя все необходимое для распаковки и подготовки файлов с помощью прекомпрессоров посредством инсталлятора InnoSetup, с равномерным отображением всех идущих операций на одном прогрессбаре. Поддерживаются arc, 7zip, rar, pcf, srep архивы. Так же реализован запрос на необходимость вставить следующий диск. На будущее планируется добавить некоторые необходимые функции, а так же возможность параллелизации операций на многоядерных системах.
Скачать

is7z v1.01 [18.12.2008] от ExpeditorR
Библиотека для распаковки 7zip архивов с отображением прогресс бара в окне Inno Setup.
Скачать

isPrecomp v0.7 [15.01.2010] от Vo1T
Библиотека для отображения процентов распаковки Precomp'a в Inno Setup.
Скачать

ISWin7 v0.4.2 [04.04.2010] от Vo1T
Это плагин позволит вам сделать прозрачными края или всё окно целиком.
Работает ТОЛЬКО в Windows 7. Проверенно на всех системах.
В Windows XP и Windows Vista он пропускает инициализацию что не мешает работоспособности сетапника в этих операционных системах.
Скачать

botva2 v 0.9.4 [02.09.2010] от htuos
Библиотека для вставки изображений в инсталлятор (jpg, png, gif, tif, bmp). Присутствует возможность создания обычных кнопок и кнопок имеющих 8 состояний (как у чекбоксов), а также множество разнообразных функций и процедур для работы с изображениями. В архиве (1.2 Мб) dll + примеры использования.
Ахтунг! Не работает под win9x/me/2k.
Скачать

ISFlash v 0.0.2 [17.03.2010] от Vo1T
Это плагин позволит вам добавить поддержку Adobe Flash (отображать swf файлы) в Inno Setup.
Скачать

Restools Plugins [04.01.2011] - Коллекция Restools-плагинов (17 штук) от John_White. В архиве dll + примеры использования.
Скачать (6.1 Mb)

Коллекция DLL файлов для Inno Setup [06.09.2010] - Содержит коллекцию DLL файлов.
Скачать (1.7 Mb)
В коллекцию входят следующие файлы:

Цитата:

bass.dll
bassmidi.dll
BASSMOD.dll
CallNSIS2.dll
ESSvcControl.dll
FirewallInstallHelper.dll
GameuxInstallHelper.dll
get_hw_caps.dll
ImgGdiPlus.dll
InnoCallback.dll
is7z.dll
ISCrypt.dll
isgsg.dll
ISHint.dll
IsProgressBar.dll
ISSkin.dll
ISSkinU.dll
isSlideShow.dll
IssProc.dll
IssSurvey.dll
ISTask.dll
isxbb.dll
isxdl.dll
itdownload.dll
ittray.dll
psvince.dll
unarc.dll

Модуль распаковки архивов FreeArc от Bulat_Ziganshin | Тема FreeArc

ISFreeArcExtract v 4.0 [15.10.2010] от Shegorat
Расширенный скрипт распаковки архивов FreeArc.
Скачать | Зеркало | Бета версия

Модули

STS v 1.0 от Shegorat [21.08.2010]
Модуль панели статуса для Inno Setup. Создает панель статуса в выбранном месте, для этого вам потребуется прописать всего несколько функций. Для отрисовки панели используется botva2.dll. Модуль пока только на русском языке. Readme как и в предыдущем модуле нет, но есть несколько примеров использования.
Скачать | Зеркало

HWREQ v 1.1 от Shegorat [15.02.2011]
Модуль системных требований для Inno Setup. Создает страницу системных требований, при этом вам потребуется прописать всего несколько функций. В архиве есть несколько примеров использования. Описания функций нет, по примерам можно разобраться что к чему. Модуль пока только на русском языке.
Скачать

BASS v 1.1 от Shegorat [12.01.2011]
Модуль для проигрывания музыки. Используется библиотека BASS.DLL. Инструкции нет, но через примеры можно понять что к чему.
Скачать | Зеркало
[/more][/b] - InnoTools Downloader, коллекция DLL файлов, распаковка архивов 7-zip и FreeArc и т.д.

[more=Дополнительные утилиты для Inno Setup]

Можно создавать свои собственные страницы для Inno Setup с кнопочками, списками и т.д.
К сожалению, офф. сайт (http://isfd.kaju74.de) Inno Setup Form Designer более не доступен.
Страница с зеркалами


Мощная надстройка для Inno Setup, при помощи которой создавать свои инсталляторы становится очень просто.

Последний релиз: 5.3.0.1 [29.09.2009]
Скачать (1.2 Mb) | Русификатор (зеркало)


Программа для создания инсталляционных пакетов с помощью Inno Setup. Имеет простой интерфейс и обладает всеми возможностями Inno Setup.

Последний релиз: 1.0.0.0070 [14.12.2010]
Скачать (1.83 Mb) | Русификатор


Простой мастер создания скрипта для установки одной или нескольких игр. В инсталлятор можно встроить музыку, слайдшоу и фоновый рисунок. Для специалистов созданный скрипт, возможно, будет неплохой заготовкой для дальнейшей модернизации.


Прежнее название ScriptMaker. Удобная оболочка для облегчения написания скриптов установки для Inno Setup. Обладает некоторыми полезными функциями, которых нет ни у самого Inno Setup, ни у ISTool.

Последний релиз: 1.0.3.1 [23.03.2008]
Скачать | обновить (нужен QuickStartPack 5.2.3)


Распаковщик инсталляторов, созданных с помощью Inno Setup, начиная с версии 2.0.18 по 5.3.11. Извлекает ресурсы и скрипт установки (без секции Code). К Total Commander или FAR подключается с помощью MultiArc плагинов.

Последний релиз: 0.35 [01.10.2010]
Скачать


Распаковщик инсталляторов Inno Setup c расширенными возможностями. Поддерживает версии Inno Setup с 2.0.8 по 5.3.11. Работает с версиями ANSI и UNICODE. Русифицирован. В архиве удобная GUI-оболочка, встраиваемая в контекстное меню.

Последний релиз: 0.35 [05.10.2010]
Скачать


Еще один вариант распаковщика под названием InnoUnpacker. Здесь на форуме он уже пробегал, примерно в апреле 2008 г. Одна из возможностей этой программы заключается в том, что можно просмотреть содержание CompiledCode.bin в псевдоассемблерном виде.

Последний релиз: 2.6b3 от valeron87
Зеркало
Скорей всего автор больше не поддерживает данный продукт, по крайней мере можно просмотреть содержание архивов созданных в Inno Setup версии 5.2.4.


Программа для создания и добавления в инсталлятор кастомных скинов. Изменить можно практически любой элемент окна.
Инструкция по добавлению нужных кусков кода в скрипт (английский язык).

Последний релиз: 3.0.0.0 [19.01.2010]
Скачать

Русификатор для SkinBuilder (ISSkinEx) 3.0.0.2 [29.09.2010] от vadimsva
Скачать


Программа для конвертации reg-файлов в формат Inno Setup.
Поддерживаются все ключи реестра. Поддерживается удаление веток и параметров (записи вида [-ветка] и "параметр"=-).
В отличии от ISTool, ключи реестра, которые не поддерживаются в Inno Setup, записываются не как тип string, а записываются в секцию кода. Конвертируются в читаемый вид HEX данные ключей REG_EXPAND_SZ (expandsz) и REG_MULTI_SZ (multisz).

Последний релиз: 0.1.4 [12.03.2010] от Serega0675
Скачать (19 кб).


Программа для объединения нескольких скриптов InnoSetup в один.

Примечание: Небольшие утилиты не совсем связанные с Inno Setup, но также могут пригодиться:

• RegShot, автор Белогорохов Юрий Павлович - используется для того, чтобы узнать какие ключи реестра изменились той или иной программой.
Скачать 2.1.1.63 (230 Кb)
• MD5 Калькулятор, автор Максименко Александр - используется для проверки внешнего файла через сумму MD5 (который описан в 5 версии руководства от Kindly) для запуска инсталлятора.
• Калькулятор сумм MD5, SHA-256, CRC32, автор Петр Каньковски - можно вычислить хэши MD5, SHA-256, контрольную сумму CRC32 любого файла.
Скачать (15 Kb)

[/more][/b] - сюда входят различные распаковщики, надстройки над Inno Setup, различные генераторы скриптов, утилита объединения скриптов и т.д.

[more=Скрипты инсталляторов для игр]

Corona Skin & Check System Requirements от Victor_Dobrov

[b]| Скачать (зеркало) | Скриншот | Описание | Старая версия || InnoSetup Upgrade || Слайд-шоу |
Обложка для Inno Setup. Сделает инсталлятор более симпатичным и добавляет расширения: Проверка минимальных требований. Расширенный прогрессбар. Расчёт времени до завершения распаковки. Список дисков. Слайдшоу или AVI-файл в фоновом окне. Компактный режим установки. Деинсталляция неучтённых файлов. Экран справки/скриншота. Медиаплеер и многое другое...

---

| Скачать |
Вставка фоновых изображений (.jpg, .png ), встоенный AutoRun, текстурирование кнопок и прогрессБара, слайд-шоу во время установки, проверка минимальных системных требований, информация о выбранном жестком диске, проигрывание МР3 музыки, озвучка кнопок при наведении и нажатии, установка временного шрифта, распаковка архивов FreeArc, процент распаковки и оставшееся время до завершения установки, удаление игровых сохранений. Деинсталлятор также выполнен в стиле установщика (текстурированный прогрессБар, процент удаления и т.д.)
Добавлен модуль Components.iss. Но. В этом варианте нужно будет самому создавать кнопки (чекбоксы и радиобаттоны) и лебелы, которые нужны, а так же логику (на примере из модуля Components.iss). Просто взять и вставить значения, как в Inno (секция [Components]) не получиться . Нужно хорошо знать ботву.

Исправленный модуль FreeArc.iss от nik1967 и Shegorat
Скачать
Расширенный модуль FreeArc.iss от Shegorat
Скачать

---

| Скачать |
Добавлен Isdone. Блочная система. Изменению подверглись модули ISDone.iss (спасибо htuos-у за ум-разум) и Need for Speed™ Undercover.iss. Добавлен модный в последнее время двойной прогресс бар (при использовании ISDone). Заменена ISDone.dll на версию 0.4.2 (спасибо Profrager-у). Главный скрипт: Need for Speed™ Undercover.iss. Обязательные скрипты: PB.iss, Messages.iss, botva2.iss. По желанию: AutoRun.iss, FreeArc.iss, ISDone.iss. В создании участвовал K9000. Не совместим с предыдущей версией!

---

| Скачать |
Обновлён ISDone0.5final.
Добавлена страница дополнительных компонентов (если не нужна, можно отключить). Блочная система.
По просьбе alifais2000 сделал 2-х язычный установщик с выбором языка при старте(русский и английский). Исправил небольшие косяки в модулях FreeArc.iss, PB.iss.
Добавлен файл справки по ISDone, что бы было меньше вопросов.

За создание скрипта спасибо: YURSHAT, Profrager, htuos, Shegorat, K9000, Expeditor.
Отдельное спасибо Bulat_Ziganshin за его замечательный архиватор FreeArc.

---

- Пример скрипта Starcraft2.
| Скачать (10,3 Mb) |

---

| Скачать |

---

| Скачать (6.34 Мб) | Описание |

---

| Изменения | Скриншоты |
| Зеркало 1 (5.6 Мб) | Зеркало 2 |
Скачать предыдущие версии:
| v1.0 | v2.0 | v2.1 |
скрипт писал под себя. довольно симпотичный инсталлятор получился. пользуйтесь кому надо
p.s. работает скрипт только на расширенной версии Inno setup (a)

---

[/more][/b] - В этом разделе можно найти различные обложки и скрипты инсталляторов для игр.

---

Inno Setup плюс внешние упаковщики - обсуждение FreeArc+Inno, Precomp+Inno, 7zip+Inno и Inno+остальные внешние упаковщики.

Пережатиe/Pекомпрессия/Oптимизация файлов для лучшего сжатия - обсуждение того, какими утилитами/способами лучше сжимать, чтобы получить как можно меньший размер инсталятора.

---

[more=Правила топика посвященному Inno Setup]
1. В этой теме обсуждаются только Inno Setup и скрипты для него.

2. Следующие вопросы являются оффтопиком и НЕ должны обсуждаться в этой ветке:
2.1. Что и чем лучше сжать.
2.2. Как использовать: winrar, 7-zip, FreeArc, srep, и т.д.
2.3. Как сделать репак игры YYYY.
2.4. Как запустить YYYY программу в режиме тихой установки.
2.5. Что нужно внести в реестр для YYYY игры/программы.

3. Перед тем как задать вопрос, проделайте следующие шаги:
3.1. Просмотрите хелп в самом Inno
3.2. Скачайте документацию/примеры из шапки
3.3. Скачайте оффлайн версию форума
3.4. Подумайте над решением задачи сами
3.5. Если уже ничего не помогает, то задавайте вопрос на форуме.

4. Правила оформления поста:
4.1. В этом форуме необходимо писать по-русски. Если же пользователь из-за дальнего зарубежья, то он пишет по английски.
4.2. Пишете по русски без ошибок. На крайний случай сделайте проверку орфографии через сторонние программы, например Microsoft Word.
4.3. Если Вы хотите добавить картинку, то используйте сторонние ресурсы, которые могут предоставить ссылки на небольшие превьюшки (например, radikal.ru). Картинки, которые Вы выкладываете на форуме не должны быть в формате bmp, tiff, png, а должны быть в формате gif, jpg. Разрешение должно быть не более 640x480 и вес картинки не должен быть более 100 кб. Запомните, что не Все пользователи хотят смотреть кучу графики на одной странице, а некоторым это всё еще дорого.
4.4. Посты повторяющие очень часто при одинаковом содержании будут игнорироваться.
4.5. Посты содержащие требования быстро исправить Ваш скрипт или написать Вам скрипт за спасибо, либо срочно дать код, будут игнорироваться.
4.6. Исходный текст скрипта обязательно заключайте в теги [no][code][/code][/no]. Большие тексты (более 10 строк) обязательно прячутся в [no][more][/no]ВАШ ТЕКСТ и/или Ваш КОД[no][/more][/no].
4.7. Если Ваш скрипт не работает, то полностью опишите проблему, когда она возникает, и очень желательно предоставить сам скрипт. Помните, что телепаты здесь отсутствуют и никто не будет гадать что у Вас там не так.

Последняя редакция правил: 29.12.2010 by Krinkels
[/more]

Перед тем, как задать вопрос: Первый вариант: загрузите "версию для печати" (ссылка справа вверху, над номерами страниц) и попробуйте поискать средствами браузера (ctrl+F). Второй вариант: для экономии трафика и для более удобного поиска, скачайте оффлайн версию форума для просмотра в разделе Документация.
Большинство типовых задач уже решались, причем неоднократно!

вот и 12 часть наступила..

http://rghost.ru/3349369
Прикрутите плз freearc
Уже по всякому пробовал....не как

Задачка. На сколько типичная - не знаю ))
Необходимо сделать выбор между двумя константами (Допустим Const1=5, Const2=8) Имеется ввиду, что при запуске инсталлятора, программка остановится на выпадающем меню с выбором константы. После выбранного пункта, константа записывается в ini файл.

Код:
[Settings]
Chislo="значение выбранной константы"

Сколько не искал, так и не нашел нормального ответа... Как на начальной и финальной странице растянуть картинки и

Dark91
[more]
[CustomMessages]
rus.Welcome1=Вас приветствует Мастер установки игры
rus.Welcome2=Нажмите «Далее», чтобы продолжить, или «Отмена», %nчтобы выйти из программы установки.
rus.Finished1=Установка игры {#AppName} успешно завершена.
rus.Finished2=Игра {#AppName} была успешно установлена на Ваш компьютер. %n%nДля ее запуска выберите соответствующий ярлык в меню «Пуск» или на Рабочем столе.
rus.Finished3=Нажмите «Завершить», чтобы выйти из программы установки.
rus.Finished4=Special for DsvLoad.Net

[Code]
var
PageNameLabel, PageDescriptionLabel, WelcomeLabel1, WelcomeLabel2, FinishedHeadingLabel, FinishedLabel: TLabel;
procedure InitializeWizard();
begin
PageNameLabel:= TLabel.Create(WizardForm);
with PageNameLabel do
begin
Transparent:=True;
Font.Name:= 'Georgia';
Font.Color:= $33CC00;
Font.Style:= [fsBold];
ShowAccelChar:= False;
Transparent:= True;
Parent:= WizardForm.MainPanel;
end;
PageDescriptionLabel:= TLabel.Create(WizardForm);
PageDescriptionLabel.Hide;
with PageDescriptionLabel do
begin
Transparent:= False;
Font.Name:= 'Georgia';
Font.Color:= $ffffff;
Font.Style:= [fsItalic];
ShowAccelChar:= False;
Transparent:= True;
Parent:= WizardForm.MainPanel;
end;

////////////////////// begin WelcomePage //////////////////////

WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do begin
AutoSize:=False;
SetBounds(ScaleX(-30), ScaleY(10), ScaleX(550), ScaleY(65));
WordWrap:=True;
Alignment := taCenter;
Transparent:=True;
Font.Name:='Georgia';
Font.Size:= 13;
Font.Color:=$33CC00;
Font.Style:=[fsBold];
Caption:= ExpandConstant('{cm:Welcome1}')+#13#10+('{#AppName}');
Parent:=WizardForm.WelcomePage;
end;

WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do begin
AutoSize:=False;
SetBounds(ScaleX(25), ScaleY(270), ScaleX(450), ScaleY(200));
WordWrap:=True;
Alignment := taCenter;
Transparent:=True;
Font.Name:='Georgia';
Font.Size:= 10;
Font.Color:=$33CC00;
Font.Style := [fsBold, fsItalic];
Caption:= ExpandConstant('{cm:Welcome2}');
Parent:=WizardForm.WelcomePage;
end;

////////////////////// end WelcomePage //////////////////////

////////////////////// begin FinishedPage //////////////////////

FinishedHeadingLabel:= TLabel.Create(WizardForm);
with FinishedHeadingLabel do begin
SetBounds(ScaleX(-30), ScaleY(10), ScaleX(550), ScaleY(65));
AutoSize:= false;
Alignment := taCenter;
Transparent:= true;
WordWrap:= true;
Font.Name:='Georgia';
Font.Size:= 13;
Font.Color:=$33CC00;
Font.Style := [fsBold];
Caption:= ExpandConstant('{cm:Finished1}'+#13#10+'{cm:Finished4}');
Parent:=WizardForm.FinishedPage;
end;

FinishedLabel:=TLabel.Create(WizardForm);
with FinishedLabel do begin
AutoSize:=False;
SetBounds(ScaleX(25), ScaleY(160), ScaleX(450), ScaleY(200));
WordWrap:=True;
Alignment := taCenter;
Transparent:=True;
Font.Name:='Georgia';
Font.Size:= 10;
Font.Color:=$FF0000;
Font.Style := [fsBold, fsItalic];
Caption:= ExpandConstant('{cm:Finished2}'+#13#10+'{cm:Finished3}');
Parent:=WizardForm.FinishedPage;
end;

////////////////////// end FinishedPage //////////////////////

with WizardForm do begin
WelcomeLabel1.Hide;
WelcomeLabel2.Hide;
FinishedLabel.Hide;
FinishedHeadingLabel.Hide;
PageNameLabel.Hide;
PageDescriptionLabel.Hide;
with WizardBitmapImage do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= ScaleX(497);
Height:= ScaleY(313);
Stretch:= true;
end;
with WizardBitmapImage2 do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= ScaleX(497);
Height:= ScaleY(313);
Stretch:= true;
end;
with MainPanel do begin
with WizardSmallBitmapImage do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= Mainpanel.Width;
Height:= MainPanel.Height;
end;
end;
end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
end;

var
SelectTasksPage: TWizardPage;

WizardImg: Longint;[/more]

NiCKsOn123
пользуюсь изменением стиля через ISSkin.dll и Tiger.cjstyles , поэтому как из того что приведено выше убрать изменение стиля текста ?

ISDone0.5L.7z использовать пытаюсь ошибка

Какую версию инно нужно поставить чтоб её небыло или что изменить в скрипте ?

Kosako и NiCKsOn123
Спасибо

Разобрался

Dark91
[more=Убер...]
Font.Name:='Georgia';
Font.Size:= 13;
Font.Color:=$33CC00;
Font.Style:=[fsBold];
[/more]

2ALL
Добавил в шапку ссылку на оффлайн версию 11-ой части в разделе Документация.

и все равно теряется стиль скина: также

Dark91
В каком смысле теряется?

Цитата:

Cempel
WizardForm.PageDescriptionLabel.Visible:=True;
Закомментируй или удали. Или исправь:
WizardForm.PageDescriptionLabel.Visible:=False;

Не помогает, выдает ошибку при запуске инсталла:


И еще скиньте плиз ссылку на распаковку FreeArc архивов в процентах.

ну ну вот что было до этого и

У мя при током порядке
Арк прекомп среп 7 зип
Из 7 запа не распаковываюца файлы.....
Как это править а то устанавливаю
А там только удалить в папке и все...

Dark91
Тогда тебе нужно только вот это.
[more]
procedure InitializeWizard();
begin
with WizardForm do begin
with WizardBitmapImage do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= ScaleX(497);
Height:= ScaleY(313);
Stretch:= true;
end;
with WizardBitmapImage2 do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= ScaleX(497);
Height:= ScaleY(313);
Stretch:= true;
end;
with MainPanel do begin
with WizardSmallBitmapImage do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= Mainpanel.Width;
Height:= MainPanel.Height;
end;
end;
end;
end;
[/more]

есть вопросик. как обрезать заданное число символов в начале строки? и еще, если это возможно, как обрезать строку в начале до определенного символа вместе с этим символом, например до символа ";". хелп

Гляньте скрипт...
После всей установки пустая папка...
[more=Скрипт]#define NeedSize "5000000000"

#define NeedMem 512

#define Components

#define SecondProgressBar

;#define records
;#define precomp04
#define precomp038
;#define unrar

[Setup]
AppName=ISDone
AppVerName=ISDone
DefaultDirName={pf}\ISDone
DefaultGroupName=ISDone Example
OutputDir=.
OutputBaseFilename=Setup
VersionInfoCopyright=ProFrager
SolidCompression=yes
#ifdef NeedSize
ExtraDiskSpaceRequired={#NeedSize}
#endif

#ifdef Components
[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: text; Description: Язык субтитров; Types: full; Flags: fixed
Name: text\rus; Description: Русский; Flags: exclusive; ExtraDiskSpaceRequired: 100000000
Name: text\eng; Description: Английский; Flags: exclusive; ExtraDiskSpaceRequired: 200000000
Name: voice; Description: Язык озвучки; Types: full; Flags: fixed
Name: voice\rus; Description: Русский; Flags: exclusive; ExtraDiskSpaceRequired: 500000000
Name: voice\eng; Description: Английский; Flags: exclusive; ExtraDiskSpaceRequired: 600000000
#endif

[Registry]
Root: HKLM; Subkey: Software\ProFrager; ValueName: path; ValueType: String; ValueData: {app}; Flags: uninsdeletekey; Check: CheckError
Root: HKLM; Subkey: Software\ProFrager; ValueName: name; ValueType: String; ValueData: Data; Flags: uninsdeletekey; Check: CheckError

[Icons]
Name: {group}\Удалить пример ISDone; Filename: {app}\unins000.exe; WorkingDir: {app}; Check: CheckError
Name: {commondesktop}\Удалить пример ISDone; Filename: {app}\unins000.exe; WorkingDir: {app}; Check: CheckError

[Tasks]
Name: VCCheck; Description: Установить Microsoft Visual C++ 2005 Redist
Name: PhysXCheck; Description: Установить Nvidia PhysX

[Run]
Filename: {src}\Redist\vcredist_x86.exe; Parameters: /q; StatusMsg: Устанавливаем Microsoft Visual C++ 2005 Redist...; Flags: skipifdoesntexist; Tasks: VCCheck; Check: CheckError
Filename: {src}\Redist\PhysX.exe; Parameters: /qn; StatusMsg: Устанавливаем Nvidia PhysX...; Flags: skipifdoesntexist; Tasks: PhysXCheck; Check: CheckError

[Files]
Source: ISDone.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\facompress.dll; DestDir: {tmp}; Flags: dontcopy
;Source: Include\arc.ini; DestDir: {tmp}; Flags: dontcopy
;Source: Include\srep.exe; DestDir: {tmp}; Flags: dontcopy

#ifdef records
Source: records.inf; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef precomp04
Source: Include\packjpg_dll.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\RTconsole.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp04.exe; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef precomp038
Source: Include\packjpg_dll.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\RTconsole.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp038.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\zlib1.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef unrar
Source: Include\Unrar.dll; DestDir: {tmp}; Flags: dontcopy
#endif

[CustomMessages]
russian.ExtractedFile=Извлекается файл:
russian.Extracted=Распаковка архивов...
russian.CancelButton=Отменить распаковку
russian.Error=Ошибка распаковки!
russian.ElapsedTime=Прошло:
russian.RemainingTime=Осталось времени:
russian.EstimatedTime=Всего:
russian.AllElapsedTime=Время установки:

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[UninstallDelete]
Type: filesandordirs; Name: {app}

[_Code]
const
PCFonFLY=true;
notPCFonFLY=false;
var
LabelPct1,LabelCurrFileName,LabelTime1,LabelTime2,LabelTime3: TLabel;
ISDoneProgressBar1: TNewProgressBar;
#ifdef SecondProgressBar
LabelPct2: TLabel;
ISDoneProgressBar2:TNewProgressBar;
#endif
MyCancelButton: TButton;
Cancel:integer;
MyError:boolean;
PCFVer:double;

type
TCallback = function (OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;

function ISArcExtract(CurComponent:longword; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password, CfgFile, WorkPath: AnsiString; ExtractPCF: BOOL ):BOOL; external 'ISArcExtract@files:ISDone.dll stdcall';
function IS7ZipExtract(CurComponent:longword; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):BOOL; external 'IS7zipExtract@files:ISDone.dll stdcall';
function ISRarExtract(CurComponent:longword; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):BOOL; external 'ISRarExtract@files:ISDone.dll stdcall';
function ISPrecompExtract(CurComponent:longword; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):BOOL; external 'ISPrecompExtract@files:ISDone.dll stdcall';
function ISSRepExtract(CurComponent:longword; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):BOOL; external 'ISSrepExtract@files:ISDone.dll stdcall';
function ShowChangeDiskWindow(Text, DefaultPath, SearchFile:AnsiString):BOOL; external 'ShowChangeDiskWindow@files:ISDone.dll stdcall';
function ISDoneInitialize(RecordFileName:AnsiString; TimeType,Comp1,Comp2,Comp3:longword; PrecompVers: double; RecursiveSubDir:boolean; WinHandle, NeededMem:longint; callback:TCallback):BOOL; external 'ISDoneInitialize@files:ISDone.dll stdcall';
function ISDoneStop:BOOL; external 'ISDoneStop@files:ISDone.dll stdcall';

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
if OveralPct<=1000 then ISDoneProgressBar1.Position := OveralPct;
LabelPct1.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
#ifdef SecondProgressBar
if CurrentPct<=1000 then
ISDoneProgressBar2.Position := CurrentPct;
LabelPct2.Caption := IntToStr(CurrentPct div 10)+'.'+chr(48 + CurrentPct mod 10)+'%';
#endif
LabelCurrFileName.Caption:=MinimizePathName(ExpandConstant('{cm:ExtractedFile} ')+CurrentFile, LabelCurrFileName.Font, LabelCurrFileName.Width);
LabelTime1.Caption:=ExpandConstant('{cm:ElapsedTime} ')+TimeStr2;
LabelTime2.Caption:=ExpandConstant('{cm:RemainingTime} ')+TimeStr1;
LabelTime3.Caption:=ExpandConstant('{cm:AllElapsedTime}')+TimeStr3;
Result := Cancel;
end;

procedure CancelButtonOnClick(Sender: TObject);
begin
if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then Cancel:=1;
end;

procedure HideComponents;
begin
WizardForm.FileNamelabel.Hide;
ISDoneProgressBar1.Hide;
LabelPct1.Hide;
LabelCurrFileName.Hide;
LabelTime1.Hide;
LabelTime2.Hide;
MyCancelButton.Hide;
#ifdef SecondProgressBar
ISDoneProgressBar2.Hide;
LabelPct2.Hide;
#endif
end;

procedure ShowComponents;
var PBTop:integer;
begin
PBTop:=ScaleY(50);
ISDoneProgressBar1 := TNewProgressBar.Create(WizardForm);
with ISDoneProgressBar1 do begin
Parent := WizardForm.InstallingPage;
Left := ScaleX(0);
Top := PBTop;
Width := ScaleX(365);
Max := 1000;
Height := WizardForm.ProgressGauge.Height;
end;
LabelPct1 := TLabel.Create(WizardForm);
with LabelPct1 do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Left := ISDoneProgressBar1.Width+ScaleX(5);
Top := ISDoneProgressBar1.Top + ScaleY(2);
Width := ScaleX(80);
end;
LabelCurrFileName := TLabel.Create(WizardForm);
with LabelCurrFileName do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Width := ISDoneProgressBar1.Width+ScaleX(30);
Left := ScaleX(0);
Top := ScaleY(30);
end;
#ifdef SecondProgressBar
PBTop:=PBTop+ScaleY(25);
ISDoneProgressBar2 := TNewProgressBar.Create(WizardForm);
with ISDoneProgressBar2 do begin
Parent := WizardForm.InstallingPage;
Left := ScaleX(0);
Top := PBTop+ScaleY(8);
Width := ISDoneProgressBar1.Width;
Max := 1000;
Height := WizardForm.ProgressGauge.Height;
end;
LabelPct2 := TLabel.Create(WizardForm);
with LabelPct2 do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Left := ISDoneProgressBar2.Width+ScaleX(5);
Top := ISDoneProgressBar2.Top + ScaleY(2);
Width := ScaleX(80);
end;
#endif
LabelTime1 := TLabel.Create(WizardForm);
with LabelTime1 do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Width := ISDoneProgressBar1.Width div 2;
Left := ScaleX(0);
Top := PBTop + ScaleY(35);
end;
LabelTime2 := TLabel.Create(WizardForm);
with LabelTime2 do begin
Parent := WizardForm.InstallingPage;
AutoSize := False;
Width := LabelTime1.Width+ScaleX(40);
Left := ISDoneProgressBar1.Width div 2;
Top := LabelTime1.Top;
end;
LabelTime3 := TLabel.Create(WizardForm);
with LabelTime3 do begin
Parent := WizardForm.FinishedPage;
AutoSize := False;
Width := 300;
Left := 180;
Top := 200;
end;
MyCancelButton:=TButton.Create(WizardForm);
with MyCancelButton do begin
Parent:=WizardForm;
Width:=ScaleX(135);
Caption:=ExpandConstant('{cm:CancelButton}');
Left:=ScaleX(360);
Top:=WizardForm.cancelbutton.top;
OnClick:=@CancelButtonOnClick;
end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
if (CurPageID = wpFinished) and MyError then
begin
LabelTime3.Hide;
WizardForm.Caption:= ExpandConstant('{cm:Error}');
WizardForm.FinishedLabel.Font.Color:= clRed;
WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) ;
end;
end;

function CheckError:boolean;
begin
result:= not MyError;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var Comps1,Comps2,Comps3, TmpValue:longword;
tmp:integer;
begin
if CurStep = ssInstall then begin //Если необходимо, можно поменять на ssPostInstall
WizardForm.ProgressGauge.Hide;
WizardForm.CancelButton.Hide;
ShowComponents;
WizardForm.StatusLabel.Caption:=ExpandConstant('{cm:Extracted}');
Cancel:=0;

// Распаковка всех необходимых файлов в папку {tmp}.

ExtractTemporaryFile('facompress.dll'); //ускоряет распаковку .arc архивов.
// ExtractTemporaryFile('arc.ini');
// ExtractTemporaryFile('srep.exe');

#ifdef records
ExtractTemporaryFile('records.inf');
#endif
#ifdef precomp04
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('RTconsole.exe');
ExtractTemporaryFile('precomp04.exe');
#endif
#ifdef precomp038
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('RTconsole.exe');
ExtractTemporaryFile('precomp038.exe');
ExtractTemporaryFile('zlib1.dll');
#endif
#ifdef unrar
ExtractTemporaryFile('Unrar.dll');
#endif

// Подготавливаем переменную, содержащую всю информацию о выделенных компонентах для ISDone.dll
// максимум 96 компонентов.
Comps1:=0; Comps2:=0; Comps3:=0;
#ifdef Components
TmpValue:=1;
if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue; //компонент 1
TmpValue:=TmpValue*2;
if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue; //компонент 2
TmpValue:=TmpValue*2;
if IsComponentSelected('voice\rus') then Comps1:=Comps1+TmpValue; //компонент 3
TmpValue:=TmpValue*2;
if IsComponentSelected('voice\eng') then Comps1:=Comps1+TmpValue; //компонент 4
// .....
#endif

#ifdef precomp04
PCFVer:=0.4;
#else
#ifdef precomp038
PCFVer:=0.38;
#else
PCFVer:=0;
#endif
#endif
repeat
MyError:=true;
if not ISDoneInitialize(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, PCFVer, false, MainForm.Handle, {#NeedMem}, @ProgressCallback) then break;
repeat

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\Вивисектор.arc'), ExpandConstant('{app}\data1'), false, '', '', '', notPCFonFLY ) then break;
if not ISSRepExtract ( 0, 0, ExpandConstant('{app}\data1\Вивисектор.srep'), ExpandConstant('{app}\data1\Вивисектор.pcf'), true ) then break;
if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data1\Вивисектор.pcf'), ExpandConstant('{app}\data1\Вивисектор.7z'), true ) then break;
if not IS7ZipExtract ( 0, 0, ExpandConstant('{app}\data1\Вивисектор.7z'), ExpandConstant('{app}\data1'), true, '' ) then break;

MyError:=false;
until true;
ISDoneStop;
until true;
HideComponents;
WizardForm.CancelButton.Visible:=true;
WizardForm.CancelButton.Enabled:=false;
end;
if (CurStep=ssPostInstall) and MyError then begin
Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewWaitUntilTerminated, tmp);
end;
end;

















[/more]

Shegorat

Цитата:

инструкций, как исправить свой скрипт

дайте ссылку на эту инструкцию

nik1967
я знаю у тебя есть файлик ISExec.dll скинь плиз

troyan90
из хелпа Inno

Цитата:

procedure Delete(var S: String; Indx, Count: Integer);
function Pos(SubStr, S: String): Integer;

Как решается эта проблема?

Stall_JM

Цитата:

У мя при током порядке
Арк прекомп среп 7 зип  
Из 7 запа не распаковываюца файлы.....
Как это править а то устанавливаю
А там только удалить в папке и все...

делай вот так(только у меня запаковано так: 7z>srep>arc)
[more]

if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\Data1.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\data1.7z.pack'), ExpandConstant('{app}\data1.7z'), '', true, CallBack ) then break;
if not IS7ZipExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data1.7z'), ExpandConstant('{app}'), true, CallBack, '' ) then break;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\Data2.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data2.7z.pack'), ExpandConstant('{app}\Data2.7z'), '', true, CallBack ) then break;
if not IS7ZipExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data2.7z'), ExpandConstant('{app}'), true, CallBack, '' ) then break;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\Data3.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data3.7z.pack'), ExpandConstant('{app}\Data3.7z'), '', true, CallBack ) then break;
if not IS7ZipExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data3.7z'), ExpandConstant('{app}'), true, CallBack, '' ) then break;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\Data4.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data4.7z.pack'), ExpandConstant('{app}\Data4.7z'), '', true, CallBack ) then break;
if not IS7ZipExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data4.7z'), ExpandConstant('{app}'), true, CallBack, '' ) then break;
[/more]

Дайте ссылку пожалуйста на последний скрипт распаковки FreeArc архивов (в процентах)

Cempel
зайди на http://freearc.org/ru/InnoSetup.aspx

nfs911
у тебя 2 процедуры InitialiazeWizard
соедини их

nfs911

Цитата:

Как решается эта проблема?

ты несколько раз одну и туже процедуру использовал,найди вторую такую же процедуру и пропиши procedure InitializeWizard1;