Скрипт Reborn Setup [V.3.5] | Incorrect, Timick

[zettend]

Вот так будет выглядеть проверка MD5:

 

[dixen18]

Мне лично нравится)

 

[zettend]

Ошибки/инфо формы:

 

[OPASEH333]

3 вопроса нуповских:
1. Откуда берется папка для установки дополнительного ПО и где указывается сам запуск этого ПО. Искал по TaskCheckBox и чёто не видел никаких запусков доп. приложений. Или это последствия удаления "Компонентов"?
2. Кнопка отключить звук. У меня в углу её просто нет, как на скрине у автора. Define Music не закомментирована в скрипте. Музыка играет, а кнопки нет той =)
Вот даже предупреждение, типо кнопки нигде нет:

3. Откуда берется слово (CustomMesage) "Проверить MD5". В модуле мд5 нет такой кнопки. Есть только Проверка MD5 из другой среды.

 

[vint56]

1 ISDone.iss
//Установка Доп.ПО
if Soft then begin
LabelOne.Caption:= CustomMessage('SoftInstall');
ExecAndWait(ExpandConstant('{app}\Soft\dxwebsetup.exe'), '/Q', '', SW_SHOW, True);
ExecAndWait(ExpandConstant('{app}\Soft\vcredist_x86.exe'), '/Q', '', SW_SHOW, True);
ExecAndWait(ExpandConstant('{app}\Soft\vcredist_x86.exe'), '/Q', '', SW_SHOW, True);
end;
//Установка Доп.ПО
2 MusicSkripts.iss
MusicButton:= BtnCreate(WizardForm.Handle, ScaleX(19), ScaleY(17), ScaleX(25), ScaleY(25), 'MusicButton.png', 1, True);

3 MainScripts.iss
#ifdef MD5
hMD5Btn:= BtnCreate(WizardForm.Handle, ScaleX(717), ScaleY(472), ScaleX(130),ScaleY(40), 'Button.png', 1, False);
BtnSetFont(hMD5Btn, WFButtonFont.Handle);
BtnSetFontColor(hMD5Btn, {#FontColor}, $FFFFFF, $FFFFFF, $FFFFFF);
BtnSetEvent(hMD5Btn, BtnClickEventID, CallBackAddr('MD5Hash'));
BtnSetCursor(hMD5Btn, GetSysCursorHandle(32649));
BtnSetText(hMD5Btn, 'Проверить MD5');
#endif

 

[OPASEH333]

1. Спасибо, прописал свой софт. Только он не устанавливается совсем никакой софт + почему-то vcredist_x86.exe. Он же в двух версиях должен быть x64 и 86. Нет проверки на тип разрядности винды.
2. Всю равно нету этой кнопки, даже после того как "подвинул" в вашем примере. Это наверно как-то связано с разрешением экрана? Тогда как настроить универсальный способ?

3. Спасибо, вопрос отпал.

 

[vint56]

OPASEH333, По поводу софта
Софт должен находиться в папке где установлена игра
D:\Games\Project Cars\Soft
Если это софт уже установлен установщик пропускает его по поводу проверки разрядности
//Установка Доп.ПО
if Soft then begin
LabelOne.Caption:= CustomMessage('SoftInstall');
ExecAndWait(ExpandConstant('{app}\Soft\dxwebsetup.exe'), '/Q', '', SW_SHOW, True);
if not IsWin64 then begin
ExecAndWait(ExpandConstant('{app}\Soft\vcredist_x86.exe'), '/Q', '', SW_SHOW, True);
end else begin
ExecAndWait(ExpandConstant('{app}\Soft\vcredist_x64.exe'), '/Q', '', SW_SHOW, True);
end;
end;
//Установка Доп.ПО
Покажи скрин установшика если ты сдвинул кнопку музыки

 

[OPASEH333]

OPASEH333, По поводу софта
Софт должен находиться в папке где установлена игра
D:\Games\Project Cars\Soft

1. Если я собираюсь установить в другую папку? Или получается мне сам софт нужно добавить в файлы установщика, он его установить в папку и потом запустит?
2. Выше скрины же. Я подвинул по этому примеру и там же скрин, что нет этой кнопки в этой точке.
MusicButton:= BtnCreate(WizardForm.Handle, ScaleX(19), ScaleY(17), ScaleX(25), ScaleY(25), 'MusicButton.png', 1, True);

 

[vint56]

TeamViewer 12 посмотрю

 

[OPASEH333]

701 863 847
5373

 

[OPASEH333]

Порешали всё красиво. Софт теперь запускается из папки и кнопка появилась в скрипте нужно было условие опустить вниз.

 

[OPASEH333]

Опять проблема

В скрипте стоит использование нескольких слайдов при установке. Типо меняются картинки во время процесса распаковки. Только это нифига не работает.

#define SlidesCount "4" /* Количество слайдов */ В папке дефолтно у автора лежит 4 jpg файла, но в процессе установки они не меняются.

 

[Timick]

Для слайд шоу ты #define Slides раскомментировал?

 

[OPASEH333]

Он вроде даже не был закоментирован. Я так не лажаю.

 

[vint56]

OPASEH333,
#define Slides /* Слайдшоу на странице установке */
#define SlidesCount "4" /* Количество слайдов */
#define SlidesTime "5000" /* Время показа слайда */
и убери запятую а то будет ошибка после TimerSL,
TimerSL, : LongWord;

должно быть так
#ifdef Slides
AImg : Array of LongInt;
CurrentImage : Integer;
TimerSL : LongWord;
#endif

 

[OPASEH333]

И снова огромное спасибо!

Теперь появилась еще одна проблема. Упаковал игру - всё ровно и красиво. Только при включенном антивирусе (у меня Avast Premier - платная версия PRO) в усиленном режиме - ошибка установки, о которой я писал недавно. -"Заголовок архива поврежден". С выключенным антивирусом или включенном антивирисе, но выключенным "усиленным режимом" всё нормально распаковывается и без ошибок. Это наверно уже никак не решит? Ибо этот FAZip.exe похоже антивирус блокирует и не даёт записать данные на диск.

 

[dixen18]

OPASEH333, Видимо да...Аваст еще неадекватно реагирует на pZLib.exe

 

[Timick]

Никогда бы не подумал, что с моим скриптом будет столько проблем...

 

[OPASEH333]

И снова я

В строке define exeGameFolder "{app} и в define exeGameFolder64 "{app}
Выставил {app/bin32} и {app/bin64} по коментарию оставленному там.

И теперь что-то он опять хочет от меня.

 

[Nemko]

Что это за константы такие {app\bin32} и {app\bin64}, может так {app}\bin32 и {app}\bin64 или через #define {#app\bin32} и {#app\bin64} (но их нужно прописать в начале).
P.S.: Если Вас не затруднит, скрывайте большие скриншоты в спойлеры. Пример: [Spoilеr] Ваши данные [/Spoilеr].