[архив] Inno Setup .:[все вопросы]:.

[Unsane]

Интегрировал Ваш пример в скрипт - не работает. Запустил в новом - работает.

Начал разбираться и нашел корень ошибки - невнимательность.

Выделение прыгало из-за следующего:



Код:

Код: Выделить всё

Name: language\english; Description: {cm:EnglishLanguage}; Types: type1 type2 type3; Flags: exclusive  
Name: language\russian; Description: {cm:RussianLanguage}; Types: type1 type2 type3; Flags: exclusive

Забыл убрать, когда копировал.

Мой способ тоже работает, но ввиду громоздкости оставлю Ваш.



Спасибо

[Potursak]

Какой камандой можно автоматически запустить файл после его установки?

[Serega]

p3rf3ct1c, Я не в том плане, просто Serega_, спец в скриптах, а мне интересно было бы узнать его назначение, вдруг бы и я использовал вашу заготовку. Вроде то что делает проверку компонентов системы увидел. А остальное тёмный лес, почти.

[Potursak]

Цитата Drongo:



мне интересно было бы узнать его назначение

[архив] Inno Setup .:[все вопросы]:.

Первый скрипт, создаёт дополнительную страницу с параметрами системы, а второй создаёт листбокс на странице выбора директории с параметрами жёстких дисков, т.е. размер и свободное место на каждом из дисков.

[boss911]

У меня проблема насчет Скрипта для отображения процесса распаковки FreeArc архивов во втором прогрессбаре

СКРИПТ от Serega

Выходит такая ошибка



Где достать эту процедуру? Unpackarc может какой то файл создать?

Допустим у меня файл worms.arc (сам архив) и файл Arc.exe, мне нужно это распокавать как хотел Blackself

где теперь достать процедуру unpackarc?

[Potursak]

SkynetAst, эта процедура в родном скрипте есть, а судя по ошибке, вы просто удалили её из своего скрипта.

[boss911]

Potursak, приведите пример, кусок скрипта (всех строк компонентов или задач). В этот флаг указали только в секции Components, либо в Tasks, или еще где-то?

[Serega]

Potursak, ошибка говорит о том, что параметр флага, включает неизвестный флаг, т.е. вы просто записали не правильно слово exclusive или там присутствует ещё какой-то флаг...

boss911, правильно сказал, привидите пример своего скрипта.

[Potursak]

Serega_,

Нажимаю на ссылку в вашей подписи, Inno Setup, кидает на эту же страницу только в шапку. а там ничего подобного Распаковка FreeArc нет.

Если вы говорите про

[архив] Inno Setup .:[все вопросы]:.

ваше сообщение там есть

читать дальше »

procedure UnpackArc(s: string);

begin

WizardForm.CancelButton.Enabled:= False; // отключаем кнопку 'Отмена'

BatRunArc(s); // создаём батник для запуска Arc.exe

WizardForm.StatusLabel.Caption:= 'Распаковка архива, ждите...';

ParserLog; // обрабатываем лог файл

WizardForm.StatusLabel.Caption:= WizardForm.StatusLabel.Caption;

ProgressBar.Position := 100;

// удаляем лишнее

DelayDeleteFile(ExpandConstant('{app}\out_log'), 2);

DelayDeleteFile(ExpandConstant('{app}\in_log'), 2);

DelayDeleteFile(ExpandConstant('{app}\Arc.exe'), 2);

DelayDeleteFile(ExpandConstant('{app}\') + s, 2);

end;



Но все равно ругается. я скопировал весь ваш пример, изменил архивы и эта ошибка.

[Serega]

SkynetAst, надо нажать левой кнопкой мышки... вот прямая

ссылка

на пост.



P.S.

Только не забудьте исправить название секции кода...