[FolDer98]

Edison007, разрешите узнать есть ли какая нибудь документация FAQ так сказать по Botva2???

[Edison007]

FolDer98, ну если только сам модуль, там всё четко расписано, ну и есть куча примеров, по которым легко понять, что к чему

[Tixo]

народ а как работают компоненты?
сам механизм действия
как что надо сделать чтобы извлеклась именно русская(английская) озвучка

[No4noylis]

Tixo, ну если пакуешь стандартным inno, то в секции [Files] файлы этой самой озвучки добавляй отдельно, и в конце соответствующих файлов пиши Components: имя компонента
Если arc'ом пакуешь, то распаковку с выбором компонентов можно реализовать с помощью ISDone, там в справке все подробно описано

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

Пример 2 : распаковка архивов, учитывая выбранные компоненты.

Код:

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

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

....

Comps1:=0; Comps2:=0; Comps3:=0;
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

....

ISDoneError:=true;
if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
  repeat
    if not FileSearchInit(false) then break;
    if not ISArcExtract ( 0, 0, ExpandConstant('{src}\BasicData.arc'), ExpandConstant('{app}\'), '', false, '', '', '', notPCFonFLY) then break;
    if not ISArcExtract ( 1, 0, ExpandConstant('{src}\rustext.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
    if not ISArcExtract ( 2, 0, ExpandConstant('{src}\engtext.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
    if not ISArcExtract ( 3, 0, ExpandConstant('{src}\rusvoice.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
    if not ISArcExtract ( 4, 0, ExpandConstant('{src}\engvoice.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
    ISDoneError:=false;
  until true;
  ISDoneStop;
end;

в данном примере имеется 4 действующих компонента. Перед инициализацией бибилиотеки состояния чекбоксов компонентов загружаются в переменную Comps1.
Сначала при любом выборе компонентов распаковывается архив BasicData.arc, у которого нет к ним привязки (первый параметр равен 0);
далее уже в зависимости от выбранных пользователем чекбоксов будет распаковываться:
rustext.arc, если был выбран компонент 'text\rus';
engtext.arc, если был выбран компонент 'text\eng';
rusvoice.arc, если был выбран компонент 'voice\rus';
engvoice.arc, если был выбран компонент 'voice\eng';
Вне зависимости от выбора пользователя, прогрессбар автоматически подстраивается под выбранные компоненты, чтобы отображение было без равков и граничным состоянием было 100%. Это достигается тем, что после тестового прохода вся информация о времени выполнения каждого компонента сохраняется в файл records.inf и перед началом реальной установки уже известно какие компоненты не были выбраны и, соответственно, их время будет интерполироваться на все остальные операции, которые точно будут выполнены в процессе установки.

[Tixo]

No4noylis,
пакую арком, как там выбрать или ненадо?

[Rikill]

Tixo, значит рановато пока это осваивать.

[Tixo]

Rikill, надо же когда то учиться)

[onlainserver]

привет всем у меня простой вопрос как сделать чтобы при распаковке архива создавался ярлык на рабочий стол?

вот например когда игру устанавливаешь ярлык ехе файла автоматом на рабочем столе вот как такое сделать спасибо жду ответов)

[Gnom_aka_Lexander]

кто работал с gdiplus.dll расскажите пожалуйста что это такое и с чем его едят »

Это одна из бета-версий ботва2. Юршат, вроде, объяснял уже както. поэтому, оптимальнее использовать именно окончательный вариант.

[Edison007]

onlainserver,
[Icons]
Name: "{userdesktop}\{#GameName}"; Filename: "{app}\{#ExeFile}"; WorkingDir: "{app}";