Вложения
-
13.2 KB Просмотры: 25
в этом то и проблема, что я использовал 0.43 и прописал в isdone 0.43 заменив значения 0.42. остальные версии прекомп я удалил. и как я не пытался ничего не выходит. и ошибку выдает в начале распаковки (хотя вначале должен распаковываться архив freearc)Алексей, тебе нужно использовать ту версию которую использовал при сжатий и заменить precomp043.exe
нет. это я не хочу. мне больше обычный прекомп нравитсяАлексей, используй PrecompInside 0.3.1
http://krinkels.org/threads/precompinside.50/
попробуемАлексей,
#define precomp "0.42" если тут поставить 043 будет ошибка надо ставить #define precomp "0.42" а в папке include надо положить precomp043 и переименовать в precomp042
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
if not ISSRepExtract( 0, 0, ExpandConstant('{app}\data1.srep'),ExpandConstant('{app}\data.arc'), true ) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{app}\data1.arc'), ExpandConstant('{app}\'), '', true, '',ExpandConstant('{tmp}\arc.ini')ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
start bin\arc.exe a -dppart1 -ep1 -dses --dirs -s; -lc- -di+$ -i2 -r -msrep:m3f:a1:l512+lzma:100mb:a1:bt4:128:mc10000:lc8 part1.pkg
start bin\arc.exe a -dppart2 -ep1 -dses --dirs -s; -lc- -di+$ -i2 -r -msrep:m3f:a1:l512+lzma:100mb:a1:bt4:128:mc10000:lc8 part2.pkg
ISDoneError:=true;
if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
repeat
ChangeLanguage('russian');
if not SrepInit('',512,0) then break;
if not PrecompInit('',128,PCFVer) then break;
if not FileSearchInit(true) then break;
#ifdef TwoArc
if not ISArcExtract (0, {#per1}, ExpandConstant('{src}\part1.pkg'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ShowChangeDiskWindow ('{cm:SelectDisc1}', ExpandConstant('{src}'),'part2.pkg') then break;
if not ISArcExtract (0, {#per2}, ExpandConstant('{src}\part2.pkg'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
#endif
Раскоментил, пишет "Not an SREP compressed file"EvilAlex, а ты раскомментировал вот это #define SrepInside в скрипте
;#define SrepFutureLZ
[Setup]
[Files]
#ifdef SrepFutureLZ
Source: Include\srep.exe; DestDir: {tmp}; Flags: dontcopy;
Source: Include\\arc.ini; DestDir: {tmp}; Flags: dontcopy;
#endif
procedure CurStepChanged(CurStep: TSetupStep);
begin
#ifdef SrepFutureLZ
ExtractTemporaryFile('srep.exe');
ExtractTemporaryFile('arc.ini');
#endif
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data-1.arc'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;