то самое, только с вынесенными параметрами на ружу.FATAL, PrecompInside и SrepInside это немножко другое)
Ну для 300+папок стоит. Хотя уже не надо, реализовал по другому. Вот теперь другой вопрос. Почему ф-ция дельты удаляет после себя лишь файлы разницы, а исходные файлы оставляет? Нельзя ли в след. версии и их удаление сделать (опционально)?1noObman1, овчинка выделки не стоит, все равно для разового использования. Проще каждый каталог указать вручную.
if not FileSearchInit(true) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data.arc'), ExpandConstant('{app}'), 'en', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.pcf'),ColFiles1);
ExecError:=false;
while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\' ),CurIndex1,true) do begin
InFilePath:=ISGetName(0);
OutFileName:=ISGetName(1);
ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\precomp041.exe'),' -r "+InFilePath+"', ExtractFilePath(OutFileName) ,'',false);
end;
ISFindFree(FindHandle1);
if ExecError then break;
....
....
#define PrecompInside
;#define SrepInside
;#define facompress
;#define precomp "0.41"
;#define unrar
;#define XDelta
;#define PackZIP
[Setup]
AppName=ISDone
AppVerName=ISDone
DefaultDirName={pf}\ISDone
DefaultGroupName=ISDone Example
OutputDir=.
OutputBaseFilename=Setup
VersionInfoCopyright=ProFrager
SolidCompression=yes
....
....
....
Код:.... .... .... if not PrecompInit(ExpandConstant('{app}\'),128,PCFVer) then break; if not FileSearchInit(true) then break; if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data\data1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break; .... .... ....[/QUOTE]