Как использовать precomp:

Прекомпрессия: precomp -slow image.img
На выходе имеем файл image.pcf - это и есть файл с разжатыми zLib-потоками, который, в отличие от оригинала image.img, жмётся тем же севензипом на ура.

Обратная рекомпрессия: precomp -r image.pcf
На выходе имеем файл image.img, т.е. исходный оригинал.

На данный момент рекомендуется отключать обработку JPG с помощью параметра -t-j

P.S. Если у вас происходит сбой при достижении отределённого процента обработки precomp'ом, то это скорее всего именно из-за обработки JPG!

Как использовать Precomp 0.4.1:
En
Also note that the newest Precomp version (0.4.1) tries to compress the data using bZip2 by default, which is a rather weak compression algorithm. For best results, use the "-c-" switch to disable the bZip2 compression.
Ru
Также отметьте, что новая версия Precomp (0.4.1) пытается сжать данные, используя bZip2 по умолчанию, который является довольно слабым алгоритмом сжатия. Для лучших результатов используйте параметр командной строки "-c-", чтобы отключить bZip2 сжатие.
info by kampaster

Для примера приведенного ниже, необходимо названия "прекомпрессированных" файлов привести к виду "имя_файла.расширение.pcf"
[no][Files]
Source: "precomp\*"; DestDir: "{tmp}"; Flags: ignoreversion overwritereadonly
Source: "Data\*"; DestDir: "{app}"; Flags: overwritereadonly recursesubdirs ignoreversion createallsubdirs sortfilesbyextension; AfterInstall: RecompressPCF

[Code]
procedure RecompressPCF;
var
Tmp, Text,
InputFile, OutputFile: string;
n, ResultCode: Integer;
begin
if ExtractFileExt(CurrentFileName)='.pcf' then
begin
InputFile:=ExpandConstant(CurrentFileName);
n:=Length(InputFile);
while InputFile[n]<>'.' do
n:=n-1;
OutputFile:=Copy(InputFile, 1, n-1);
Text:=WizardForm.StatusLabel.Caption;
WizardForm.StatusLabel.Caption:='Рекомпрессия извлеченного файла...';
WizardForm.FileNameLabel.Caption:=OutputFile;
Tmp:=ExpandConstant('{tmp}\');
Exec(Tmp+'precomp.exe', '-d -o"'+OutputFile+'" "'+InputFile+'"', Tmp, SW_HIDE, ewWaitUntilTerminated, ResultCode);
DeleteFile(InputFile);
WizardForm.StatusLabel.Caption:=Text;
end;

2-ой вариант

[code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep=ssInstall
then
begin
Exec(ExpandConstant('{app}\precomp.exe'), ' -r data.pcf ', '', SW_HIDE, ewWaitUntilTerminated, res);
DeleteFile(ExpandConstant('{app}\data.pcf'));[/no]

1) Устанавливаете программу
2) Заходите в папку с установленной программой
3) Запукаете radvideo.exe
4) Выбираете файл и кликаете на этой кнопке:

5) Затем здесь указываете на сколько вы хотите сжать (% от оригинала, от 1-99):

1) Скачиваем NVidia nvDXT tool
2) Заходим в папку, которую установили NVidia nvDXT tool (....NVIDIA Corporation\NVIDIA Texture Tools 2\bin). У меня (C:\Program Files\NVIDIA Corporation\NVIDIA Texture Tools 2\bin)
3) Создаём файл с расширением *.bat и пишем там:

--------------------------------------------------------------------------------
"-quality_highest" - можно не вписывать, если просто хотите ужать dds файл
--------------------------------------------------------------------------------

Код:
Для DXT1 (самое низкое качество): nvcompress.exe -nomips -repat -bc1 "нужный файл" -quality_highest -rescale lo -dxt1c
Для DXT3 (качество лучше чем DXT1 и может содержать альфа-канал (Alpha-Chanel)): nvcompress.exe -nomips -repat -bc1 "нужный файл" -quality_highest -rescale lo -dxt3
Для DXT5 (наиболее высокое качество, поддерживает улучшенный альфа-канал, но более "увесистое" чем DXT3): nvcompress.exe -nomips -repat -bc1 "нужный файл"
-quality_highest -rescale lo -dxt5
--------------------------------------------------------------------------------
Для текстур без альфа канала рекомендую использовать DXT1 либо DXT3. Если текстура содержит альфа канал ужимаем в DXT3 или в DXT5.
--------------------------------------------------------------------------------
P.S Большого различия между DXT3 и DXT5 почти нет, решать вам...выбирать
поганый альфа канал или нормальный

call_unpack.cmd
set enum_types=*.docx;*.xlsx;*.xlsm;*.xlsb;*.pptx
if not -%1==- set enum_types=%1
for /r %%f in (%enum_types%) do call %0\..\unpack.cmd "%%f"

unpack.cmd
move %1 %1.zip
md %1
7z x %1.zip -o%1 -r
del %1.zip
echo %1 >>lst.txt

call_pack.cmd
for /f "delims=""" %%f in (lst.txt) do call %0\..\pack.cmd %%f

pack.cmd
cd %1
7z.exe a -tzip %1.zip * -w%1 -mx=9 -mfb=258 -mpass=15
cd ..
rd /s /q %1
move %1.zip %1

Маски расширений прописываем в файле call_unpack.cmd
Эти батники (расширение CMD) кидаем в каталог верхнего уровня, сперва запускаем call_unpack.cmd - файлы с прописанными масками распакуются в одноимённые папки и тут же создаётся список этих файлов lst.txt который понадобится в дальнейшем для обратной операции. Теперь всё это дело можно сжимать freearc'ом. Чтоб восстановить файлы - запускаем call_pack.cmd, он берёт из списка папки, и пакует их содержимое 7zip'ом (если 7ZIP не прописан в PATH - указываем полный путь где он лежит)

There are additional techniques to improve compression ratio:

word alphabet can consist of start tags (like ''), urls, e-mails
special model for numbers encoding
input XML file is split into containers
there are special containers for dates, time, pages and fractional numbers
end tags (like '') are replaced with a single char
end tags + EOL symbols can also be replaced with a single char
spaceless words model
very effective methods for white-space preserving
quotes modeling ('="' and '">' replaced with a single char)
Если используем в качестве препроцессора - просто указываем нулевую компрессию -l0