Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

Модерирует : gyra, Maz

Widok (10-08-2009 22:13): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

DeKaNszn

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
берешь этот скрипт
 
в секцию [Files] после
Код:
Source: compiler:InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy
добавляешь
Код:
Source: paths.txt; DestDir: {tmp}; Flags: dontcopy deleteafterinstall

 
после
Код:
FreezeTimer: Boolean;  
вставляешь
Код:
UnpTo: TArrayOfString;

 
после
Код:
Status.count:= 0;   // не учитывать файлы, извлечённые инсталлятором
вставляешь
Код:
        ExtractTemporaryFile('paths.txt');
    LoadStringsFromFile(ExpandConstant('{tmp}\paths.txt'), UnpTo);
 

 
в строке
Код:
Result:= FreeArcExtract (callback, 'x', '-o+', '-dp'+ AnsiToUtf8(ExpandConstant('{app}')), '--', AnsiToUtf8(Arcs[ArcInd].Path), '', '', '', '', '');

заменяешь '{app}' на UnpTo[ArcInd]
 
пример файла paths.txt

Код:
{app}
{app}
{app}\3
{app}\3\4

Всего записей: 596 | Зарегистр. 03-03-2009 | Отправлено: 19:14 10-07-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)
Widok (10-08-2009 22:13): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru