Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Алексей, тебе нужно использовать ту версию которую использовал при сжатий и заменить 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;