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

[AlexanderSergeev]

ZVSRus, посмотрел ваш сегодняшний скрипт и не понял, что за hex описание в секции для [ISFormDesigner]


З.Ы. Ребята извините за нубство, может знаете, как реализовать такой финт (http://forum.oszone.net/post-2620910-1460.html) в инно? :blush:

[ZVSRus]

что за hex описание в секции для [ISFormDesigner]
У Вас какая версия Inno Setup

Вот так

Экспериментировал пол дня, всего одно слово нужно было переименовать. Хотя PinIconCheck'ом переименовывал разное, но переименовать IsTaskSelected('Pin')
не допер. Моя не внимательность меня достала. Гляжу в книгу вижу фигу.

[AlexanderSergeev]

ZVSRus, расширенный юникод компилятор 5.5.1 от китайских собратьев

[ZVSRus]

расширенный юникод компилятор 5.5.1 от китайских собратьев

Зайди в Редактор Форм, создай новую страницу (например следом за WelcomePage). создай на ней компоненты (разные).
Автоматически создастся (не знаю как правильно называется) идентификатор страницы и компонентов [ISFormDesigner].

[AlexanderSergeev]

ZVSRus, теперь понял спасибо :ok:

[ZVSRus]

Вопрос к Dodakaedr,у. Что нужно изменить в данной процедуре если финишная страница отключена.

procedure CurPageChanged(CurPageID: integer);
begin
case CurPageID of
wpFinished: begin
if PanelZadachCheck then PinToTaskbar(ExpandConstant('{app}\MyProg.exe'), True);
end;
end;
end;


А используется FinishedForm

function ShowFinishedForm(): Boolean;
var
FinishedForm: TSetupForm;
begin
FinishedForm := CreateCustomForm;
FinishedForm.Position:=poScreenCenter;
try
FinishedForm.ClientWidth := ScaleX(310);
FinishedForm.ClientHeight := ScaleY(133);
FinishedForm.BorderStyle := bsSingle;
FinishedForm.BorderIcons := [biSystemMenu];

[Dodakaedr]

Что нужно изменить в данной процедуре если финишная страница отключена. »
Используйте не постраничный этап, а этапы установки, то есть:

procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssPostInstall:
begin
if PanelZadachCheck then PinToTaskbar(ExpandConstant('{app}\MyProg.exe'), True);
end;
end;
end;

[Batistas]

Всем привет! Решил организовать сжатие сборки CS:S через связку Precomp + Srep + Arc.

arc a -ep1 -ed -r -w.\ Setup.bin -mprecomp:t-
nfj:zl11,18,34,39,44,55,68,75,82,83,84,85,97,98:d10+srep+exe+delta+lzma:a1:mfbt4:d256m:fb128:mc1000: lc8 "D:\test1\Modules\*"

Но во время установки происходит следующее:

http://s013.radikal.ru/i323/1604/37/27f3d7b34dc8.png

Версия ISDone 0.6 final.

Подскажет кто-нибудь решение проблемы?

[AlexanderSergeev]

Подскажет кто-нибудь решение проблемы? » Как вариант, проверьте в скрипте раскомментированы ли секции #define PrecompInside (0.38-0.42 зависит от версии) и #define SrepInside
В темпе обязательно должны находиться: последний ISDone.dll, unarc.dll, соответствующие CLS фильтры, модифицированный precomp.exe, подменная packjpg_dll.dll и zlib1.dll
Да, еще такой момент, если пакуете данные Arc.exe/FreeArc, которые подписаны FA_protect, то и распаковывать нужно патченным экземпляром unarc.dll

[ispolin]

Помогите. Видимо куда то ткнул и получил

было

http://s019.radikal.ru/i616/1604/5b/0b2c030ac7f7.jpg

стало

http://s013.radikal.ru/i323/1604/d7/4c5037078c4b.jpg

версия Inno 5.5.8
версия ISTools 5.3.0.1

как исправить?

[ZVSRus]

как исправить?
Из Справки
[Setup]
DisableStartupPrompt=yes


Игнорируется, когда UseSetupLdr=no

[ispolin]

ZVSRus, не помогает
всё равно выходит второе(неполноценное окно установки)

[Setup]
AppName=Soft Pack
AppVersion=2016
AppVerName=Soft Pack
OutputBaseFilename=Soft Pack
Compression=lzma
ArchitecturesInstallIn64BitMode=x64 ia64
WizardImageFile={tmp}\WizardImage.bmp
WizardSmallImageFile={tmp}\WizardSmallImage.bmp
VersionInfoVersion=2016
VersionInfoCompany=ispolin
VersionInfoCopyright=ispolin
VersionInfoProductVersion=2.0.1.6
VersionInfoDescription=Soft Pack
VersionInfoProductName=Soft Pack
AppCopyright=ispolin
LicenseFile={tmp}\license.txt
DisableStartupPrompt=no
CreateAppDir=false

[ZVSRus]

не помогает

[Setup]
AppName=Soft Pack
AppVersion=2016
AppVerName=Soft Pack
OutputBaseFilename=Soft Pack
Compression=lzma
ArchitecturesInstallIn64BitMode=x64 ia64
WizardImageFile={tmp}\WizardImage.bmp
WizardSmallImageFile={tmp}\WizardSmallImage.bmp
VersionInfoVersion=2016
VersionInfoCompany=ispolin
VersionInfoCopyright=ispolin
VersionInfoProductVersion=2.0.1.6
VersionInfoDescription=Soft Pack
VersionInfoProductName=Soft Pack
AppCopyright=ispolin
LicenseFile={tmp}\license.txt
DisableStartupPrompt=no У Вас стоит no нужно yes
CreateAppDir=false

[ispolin]

У Вас стоит no нужно yes »
тогда вообще пропадает окно и сразу выходит лицензионное соглашение

DisableStartupPrompt
в переводе вроде звучит как "отключить страницу приветствия"
соответственно нужно ставить no

[ZVSRus]

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

Из Справки:

[Setup]: DisableStartupPrompt
Возможные значения:
yes или no
Значение по умолчанию:
yes

Описание:
При значении yes, инсталлятор не будет отображать сообщение "Эта программа установит… на ваш компьютер… Продолжить?" ("This will install... Do you wish to continue?").

Игнорируется, когда UseSetupLdr=no.

[ispolin]

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

[ZVSRus]

Помогите. Видимо куда то ткнул и получил
Первый скрин - Это страница приветствия WelcomePage
Второй скрин - Это не страница приветствия, это всплывающее окно перед страницей приветствия.
В последних версиях Inno 5.5.8, 5.5.9 по моему страница приветствия по умолчанию отключена, об этом на форуме уже писали.
Тогда в секцию [Setup] вставь DisableWelcomePage=no

из справки:

[Setup]: DisableWelcomePage
Возможные значения:
yes или no
Значение по умолчанию:
no

Описание:
При значении yes инсталлятор не покажет страницу приветствия.

[ispolin]

DisableWelcomePage=no »
страница приветствия по умолчанию отключена »
Помогло! Снимаю шляпу и благодарю.

[Batistas]

Всем добрый вечер! Имеется скрипт установки CS:S с прикрученным ISDone. До прикручивания ISDone работала автоустановка directx, visual studio и net.fraemwork. После включения ISDone автоустановка не работает. Может кто подсказать, как это исправить? Заранее спасибо!

[doctor_allcome]

Добрый день! Прошу помощи профессионалов! Имеется тестовый скрипт. При отработке CancelButtonClickFinishedPage срабатывает закрытие процесса, но в Винде, в папке TEMP временные файлы не удаляются. Не могу понять, как заставить программу чистить TEMP по завершению?


[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
procedure ExitProcess(uExitCode: UINT);
external 'ExitProcess@kernel32.dll stdcall';

function NextButtonClick(CurPage: Integer): Boolean;
begin
Result := True;
// if the fake Finish button was clicked...
if CurPage = wpFinished then
MsgBox('И вот тут Можно запустить программу!', mbInformation, MB_OK);
end;

procedure CancelButtonClickFinishedPage(Sender: TObject);
begin
// display the "Exit Setup ?" message box and if the user selects "Yes",
// then exit the process; it is currently the only way how to exit setup
// process manually
if ExitSetupMsgBox then
ExitProcess(0);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpFinished then
begin
WizardForm.NextButton.Caption := 'Run';
WizardForm.CancelButton.Caption := SetupMessage(msgButtonFinish);
WizardForm.CancelButton.Visible := True;
// bind your own OnClick event for the Cancel button; the original one
// is already disconnected at this stage
WizardForm.CancelButton.OnClick := @CancelButtonClickFinishedPage;
end;
end;