Profrager
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
K9000
ты видимо не понял принципа..
Цитата: ; Раскомментировать, прогнать установку, закомментировать, records.inf распространять вместе с установщиком
;#define records |
надо наоборот:
Код: ; Закомментировать, прогнать установку, раскомментировать, полученный records.inf будет компилиться в setup.exe вместе с остальными файлами установщика
#define records |
Добавлено:
Код:
StartRecord(ExpandConstant('{src}\records.inf'),ChComp);
repeat
MyError:=true;
ProcessFiles();
MyError:=false;
until true;
StopRecord;
|
При отмене или ошибке в dll не будет отображаться ошибка в Inno
Надо сделать как-то так:
в ISDone_Comp_Example.iss процедуру ProcessFiles заменить на:
Код:
procedure ProcessFiles;
begin
repeat
MyError:=true;
// if not ISRarExtract ( 0, OveralPct, 0, ExpandConstant('{src}\data0.part1.rar'), ExpandConstant('{app}'), false,CallBack, '' ) then exit;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\CODMW2.arc'), ExpandConstant('{app}'), false,CallBack, '', '', '') then exit;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\CODMW2.srep'), ExpandConstant('{app}\CODMW2.pcf'), '', true, CallBack ) then exit;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\CODMW2.pcf'), ExpandConstant('{app}\CODMW2.7z'), true, CallBack ) then exit;
if not IS7ZipExtract ( 0, OveralPct, 0, ExpandConstant('{app}\CODMW2.7z'), ExpandConstant('{app}'), true, CallBack, '' ) then exit;
if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 2 и дождитесь его инициализации.', ExpandConstant('{src}'),'CODMW2_Disk2.arc' ) then exit;
if not ISArcExtract ( 1, OveralPct, 0, ExpandConstant('{src}\rustext.arc'), ExpandConstant('{app}'), false,CallBack, '', '', '') then exit;
if not ISArcExtract ( 2, OveralPct, 0, ExpandConstant('{src}\engtext.arc'), ExpandConstant('{app}'), false,CallBack, '', '', '') then exit;
if not ISArcExtract ( 3, OveralPct, 0, ExpandConstant('{src}\rusvoice.arc'),ExpandConstant('{app}'), false,CallBack, '', '', '') then exit;
if not ISArcExtract ( 4, OveralPct, 0, ExpandConstant('{src}\engvoice.arc'),ExpandConstant('{app}'), false,CallBack, '', '', '') then exit;
MyError:=false;
until true;
end; |
а в ISDone_Tail.iss оставить
Код: StartRecord(ExpandConstant('{src}\records.inf'),ChComp);
ProcessFiles;
StopRecord; |
|
