ISDone

DLL ISDone 0.6 final

Нет прав для скачивания
Обзор Рецензии (11) История Обсуждение
Fix

Fix

Новичок
Ne0N, добавь в следующей версии zip и tar архивы. А то в ISDone 0.6d он их не распаковывает.
 
vint56

vint56

Ветеран
Проверенный
Fix, для этого там есть функция ISExec - запускает указанное приложение с необходимыми параметрами с плавным отображением прогресса

[Files]
Source: Include\7z.exe; DestDir: {tmp}; Flags: dontcopy
ExtractTemporaryFile('7z.exe');
zip
if not ISExec ( 0, 0, 0, ExpandConstant('{tmp}\7z.exe'), ExpandConstant('x "{src}\1.zip" -yo"{app}"'), ExpandConstant('{app}'), '',false) then break;
tar
if not ISExec ( 0, 0, 0, ExpandConstant('{tmp}\7z.exe'), ExpandConstant('x "{src}\iw_01.tar" -yo"{app}"'), ExpandConstant('{app}'), '',false) then break;
 
Последнее редактирование:
Edison007

Edison007

Ветеран
Модератор
Ne0N
Проблемма в следующем... при распаковке 7з-архивов, при нажатии на кнопку "Отмена" вылазит вот такая вот ошибка:
 
alexa1995

alexa1995

Участник
Ne0N,
А можно в следующую версию isdone добавить одновременную работу двух процессов ISExec?
 
Edison007

Edison007

Ветеран
Модератор
Как в IsDone 0.6e через arc.exe (IsExec) сделать распаковку определённой папки из архива?
 
vint56

vint56

Ветеран
Проверенный
Edison007, вот такое пойдет
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\Data.arc'), ExpandConstant('{app}'), 'Папка', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
 
Edison007

Edison007

Ветеран
Модератор
vint56
Спс. но выходит какая-то лажа с ПБ если в архиве есть две папки, а надо распаковать только одну, то ПБ не доходит до конца...
 
ProFrager

ProFrager

Знаток
Проверенный
MasteR, ну если unarc.dll такую ошибку ворачивает при отмене установки, я чего сделать могу?

Добавлено через 10 минут
хотя... можно просто игнорить ошибки при отмене :)
 
BaRS

BaRS

Мимокрокодил
Ребят возникла проблема
При установки программы. архивы корректно распаковываются, но создаются папки для каждого архива,(пример:data.srp,data1.srp) в следствии чего выскакивает ошибка якобы архив не найден.
допустим "Arc->data.srp->7z" на этапе распаковки из арк в srp выскакивает ошибка о том что архив не найден. Т.К, папка в которой архив имеет абсолютно др. название (Deus Ex - Human Revolutiondata0.srp)
Вот что мы видим в результате установки
А вот собственно сам код распаковки
Код: 
        if not ISArcExtract ( 6, 0, ExpandConstant('{src}\Data\data.bin'), ExpandConstant('{app}\data.srp'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 6, 0, ExpandConstant('{src}\Data\data0.bin'), ExpandConstant('{app}\data0.srp'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 6, 0, ExpandConstant('{src}\Data\data1.bin'), ExpandConstant('{app}\data1.srp'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 6, 0, ExpandConstant('{src}\Data\data2.bin'), ExpandConstant('{app}\data2.srp'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 6, 0, ExpandConstant('{src}\Data\data3.bin'), ExpandConstant('{app}\data3.srp'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 10, 0, ExpandConstant('{src}\Data\data4.bin'), ExpandConstant('{app}\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISSRepExtract   ( 6, 0, ExpandConstant('{app}\data.srp'),ExpandConstant('{app}\data.7z'), true) then break;
        if not ISSRepExtract   ( 6, 0, ExpandConstant('{app}\data0.srp'),ExpandConstant('{app}\data0.7z'), true) then break;
        if not ISSRepExtract   ( 6, 0, ExpandConstant('{app}\data1.srp'),ExpandConstant('{app}\data1.7z'), true) then break;
        if not ISSRepExtract   ( 6, 0, ExpandConstant('{app}\data2.srp'),ExpandConstant('{app}\data2.7z'), true) then break;
        if not ISSRepExtract   ( 6, 0, ExpandConstant('{app}\data3.srp'),ExpandConstant('{app}\data3.7z'), true) then break;
        if not IS7ZipExtract   ( 6, 0, ExpandConstant('{src}\data.7z'), ExpandConstant('{app}\'), false, '') then break;
        if not IS7ZipExtract   ( 6, 0, ExpandConstant('{src}\data0.7z'), ExpandConstant('{app}\'), false, '') then break;
        if not IS7ZipExtract   ( 6, 0, ExpandConstant('{src}\data1.7z'), ExpandConstant('{app}\'), false, '') then break;
        if not IS7ZipExtract   ( 6, 0, ExpandConstant('{src}\data2.7z'), ExpandConstant('{app}\'), false, '') then break;
        if not IS7ZipExtract   ( 6, 0, ExpandConstant('{src}\data3.7z'), ExpandConstant('{app}\'), false, '') then break;
Что я делаю не так :( подскажите пожалуйста!
 
nik1967

nik1967

Old Men
Проверенный
BaRS,
А уверен, что
Код: 
if not IS7ZipExtract   ( 6, 0, ExpandConstant('{[COLOR="Red"]src[/COLOR]}\data.7z'), ExpandConstant('{app}\'), false, '') then break;
а не
Код: 
if not IS7ZipExtract   ( 6, 0, ExpandConstant('{[COLOR="Lime"]app[/COLOR]}\data.7z'), ExpandConstant('{app}\'), false, '') then break;
?
 
Snoopak96

Snoopak96

Старожил
BaRS,
Эти функции не верны [не верно указан путь к архивам]:
if not IS7ZipExtract ( 6, 0, ExpandConstant('{src}\data.7z'), ExpandConstant('{app}\'), false, '') then break;
if not IS7ZipExtract ( 6, 0, ExpandConstant('{src}\data0.7z'), ExpandConstant('{app}\'), false, '') then break;
if not IS7ZipExtract ( 6, 0, ExpandConstant('{src}\data1.7z'), ExpandConstant('{app}\'), false, '') then break;
if not IS7ZipExtract ( 6, 0, ExpandConstant('{src}\data2.7z'), ExpandConstant('{app}\'), false, '') then break;
if not IS7ZipExtract ( 6, 0, ExpandConstant('{src}\data3.7z'), ExpandConstant('{app}\'), false, '') then break;
Нажмите для раскрытия...
Так надо:
if not IS7ZipExtract ( 6, 0, ExpandConstant('{app}\data.7z'), ExpandConstant('{app}\'), false, '') then break;
if not IS7ZipExtract ( 6, 0, ExpandConstant('{app}\data0.7z'), ExpandConstant('{app}\'), false, '') then break;
if not IS7ZipExtract ( 6, 0, ExpandConstant('{app}\data1.7z'), ExpandConstant('{app}\'), false, '') then break;
if not IS7ZipExtract ( 6, 0, ExpandConstant('{app}\data2.7z'), ExpandConstant('{app}\'), false, '') then break;
if not IS7ZipExtract ( 6, 0, ExpandConstant('{app}\data3.7z'), ExpandConstant('{app}\'), false, '') then break;
Нажмите для раскрытия...
 
nik1967

nik1967

Old Men
Проверенный
Snoopak96, BaRS,
Даже вот так:
Код: 
if not IS7ZipExtract ( 6, 0, ExpandConstant('{[COLOR="Lime"]app[/COLOR]}\data.7z'), ExpandConstant('{app}\'), [COLOR="Lime"]true[/COLOR], '') then break;
 
  • Like
Реакции: MMR
Войдите или зарегистрируйтесь для ответа.
Сверху