[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

[Serega]

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

[alex2010]

как исправить вот такой небольшой баг:????
http://s004.radikal.ru/i206/1003/0c/8d0b277ee14c.jpg (http://www.radikal.ru)

[YURSHAT]

Need for Speed™ Undercover.iss [v 2.0]

http://i073.radikal.ru/1003/bc/225c8c710a87t.jpg (http://radikal.ru/F/i073.radikal.ru/1003/bc/225c8c710a87.jpg.html) http://i027.radikal.ru/1003/f5/ad164613c640t.jpg (http://radikal.ru/F/i027.radikal.ru/1003/f5/ad164613c640.jpg.html) http://s53.radikal.ru/i142/1003/99/ddef81892640t.jpg (http://radikal.ru/F/s53.radikal.ru/i142/1003/99/ddef81892640.jpg.html) http://s48.radikal.ru/i121/1003/41/0f16b9912225t.jpg (http://radikal.ru/F/s48.radikal.ru/i121/1003/41/0f16b9912225.jpg.html)

Пароль: ru-board | временно без скачивания

Что нового:

• Весь скрипт переписан с нуля (сходство только визуальное)
• Отсутствуют .bmp изображения (только .jpg и .png)
• Больше не нужно использовать Photoshop!!!

• Встроенный Autorun, содержащий бегущую строку в виде заголовка, описание игры с «эффектом печатной машинки», есть возможность запуска и удаления игры если она присутствует в системе.
• Новый способ текстурирования кнопок и прогрессБара (теперь они прозрачные). Также кастомные чекбоксы. Кнопки имеют 8 состояний (могут быть включенными и выключенными). Присутствует озвучка кнопок и чекбоксов при наведении и нажатии, а также изменения цвета шрифта.
• Установка и использование временного шрифта.
• Проверка системных требований
• Информация о выбранном жестком диске
• Прозрачные DirEdit и GroupEdit.
• Слайд-шоу во время установки, а также процент распаковки и оставшееся время.
• Деинсталлятор также выполнен в стиле установщика (текстурированный прогрессБар, процент удаления и т.д.).
• Удаление игровых сохранений и многое другое.

Страницы Мастера:

WelcomePage, SystemPage*, SelectDirPage, SelectProgramGroupPage, SelectTasksPage*, InstallingPage, FinishedPage, UninstallingPage.

Огромную благодарность выражаю South (htuos) , за создание прекрасной библиотеки botva2.dll, и за попомощь в написании скрипта.

PS. Просьба: не писать сообщения с просьбой добавить FreeArc. FreeArc будет добавлен после теста основного скрипта. Прошу протестить скрипт и сообщить о выявленых глюках\багах

[mariolast]

Как вносить изменения в Ini файл? Использование функции SetIniString затирает все строки в нем :(

А мне надо именно подредактировать его

[Habetdin]

YURSHAT, не компилилось в unicode-версии Inno Setup, заменил везде PAnsiChar на PChar и убрал строку "PChar = PAnsiChar;" - правильно? :)
В секции [Files] прописано:
Source: {win}\help\*.hlp; DestDir: {app}\Files; Flags: external
Это ведь для проверки прогрессбара и не входит в необходимые файлы?

[YURSHAT]

YURSHAT, не компилилось в unicode-версии Inno Setup, заменил везде PAnsiChar на PChar и убрал строку "PChar = PAnsiChar;" - правильно? »

У меня на 5.3.8 (u) все нормально компилится (только что проверил). А PAnsiChar не нужно менять. Например в ImgPBCreate нужно передавать строки только в ANSI-кодировке, так как
function ImgLoad(Wnd :HWND; FileName :PAnsiChar ; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint;

Это ведь для проверки прогрессбара и не входит в необходимые файлы? »

Да, это для демонстрации работы прогресса и слайд-шоу

ЗЫ. В каких строчках выдавало ошибку?

[Habetdin]

YURSHAT, У меня на 5.3.8 (u) все нормально компилится (только что проверил) »
Версия от ResTools или стандартная?
PAnsiChar »
У меня выдает "Unknown type: PAnsiChar" :(

[YURSHAT]

ерсия от ResTools или стандартная? »

Стандартная

[Habetdin]

Стандартная »
А у меня расширенная от Restools :(

[YURSHAT]

А у меня расширенная от Restools »

Ну теперь понятно откуда ноги ростут :)

Ну думаю особых проблем это не вызовет.

[mariolast]

Мне нужно сделать так, чтобы в поле ввода пути назначения стоял по умолчанию путь, который зависит от Типа устанавливаемого приложения.
Думаю, что для этого надо чтобы страница выбора компонентов выскакивала раньше чем страница выбора пути.
Делал так

procedure CurPageChanged(CurPageID: Integer);
begin

with WizardForm do
begin
if CurPageID = wpSelectDir then
begin
SelectDirPage.Notebook.ActivePage:= SelectComponentsPage;
end;
if CurPageID = wpSelectComponents then
SelectComponentsPage.Notebook.ActivePage:= SelectDirPage;
DiskSpaceLabel.Caption:= ComponentsDiskSpaceLabel.Caption;
if isComponentSelected('zs') then DirEdit.Text:=ExpandConstant('{pf}\proga1) else DirEdit.Text:=ExpandConstant('{pf}\proga2');
if CurPageID = wpSelectProgramGroup then
begin
if isComponentSelected('proga1') then GroupEdit.Text:='proga1' else GroupEdit.Text:='proga2';
end;
end;

Кнопка Обзор фактически тут не работает....чтобы ни выбирал я...ставится будет либо в {pf}\proga1 либо в {pf}\proga2.
И еще при выборе отличного по умолчанию пути всегда высвечивается то что задано в начале скрипта в DefaultDirName={pf}\..., приходится ручками стирать, вот бы это DefaultDirName можно было изменять...

Можно как то ситуацию поправить без создания пользовательского окна? Или может есть уже готовый скрипт для такого окна более-менее приличного вида...

[A1EXXX]

Inno Setup Compiler (http://restools.hanzify.org/inno/InnoCompiler100322(7zip).zip) 5.3.8 build 100322 Final от Restools (http://restools.hanzify.org/)

[Habetdin]

ЗЫ. В каких строчках выдавало ошибку? »
http://s005.radikal.ru/i209/1003/8a/8ca7e503ef24.png

[YURSHAT]

Habetdin, эт я уже понял. просто закоментируйте строку. Рестулзовскому юникоду эту не нужно.

ЗЫ. Эту фигню я поправлю

[Habetdin]

YURSHAT, просто закоментируйте строку »
Вот тогда и выдает "Unknown type":
http://s54.radikal.ru/i145/1003/4b/ebe45698ff0e.png :(

[alex2010]

Habetdin, сделай вот так:
//PAnsiChar = PChar;

[Habetdin]

alex2010, я что, заккоментировать строку не могу? :lol:
Ошибку из поста выше выдает после комментирования :)

[comsun]

Можно ли на Inno Setup собрать "тихий" инсталлятор?
И если можно,то как?
Спасибо.

[alex2010]

Habetdin, :lol: у меня этой ошибки нет, хочешь закомментируй, хочешь не комментируй :)
YURSHAT, а как сделать в твоем новым скрипте так, чтоб скин загружался без autorun, т.е. когда удаляешь код autorun'а то скин не загружается???

[YURSHAT]

Ошибку из поста выше выдает после комментирования »

Я чуть позже подправлю этот недочет.

URSHAT, а как сделать в твоем новым скрипте так, чтоб скин загружался без autorun, т.е. когда удаляешь код autorun'а то скин не загружается?? »

1. Самый простой способ отключения Авторана (ничего не удаляя) это

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('Tiger.cjstyles');
LoadSkin(ExpandConstant('{tmp}\Tiger.cjstyles'), '');
Result := AutoRunExec;
end;

заменить Result := AutoRunExec на Result := True.

2. Загрузка скина происходит в функции InitializeSetup, не удаляй ее при удалении строк отвечающих за авторан

Можно ли на Inno Setup собрать "тихий" инсталлятор? »

Почитайте справку (к Inno Setup) :read: