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

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

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

articlebot (13-10-2013 23:33): продолжение темы - №15
 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

ShadowHawk



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

[Files]
  ; не загружаемые данные
  Source: compiler:dll pack\descctrl.dll;                       Flags: dontcopy solidbreak noencryption
  Source: compiler:dll pack\fairy.dll;                          Flags: dontcopy
  Source: compiler:dll pack\iswin7.dll;                         Flags: dontcopy
  Source: compiler:dll pack\isgsg.dll;                          Flags: dontcopy
  Source: compiler:dll pack\ISSkin.dll;                         Flags: dontcopy
  ; картинки
  Source: PIC\logo-7.png;                                       Flags: dontcopy
  Source: PIC\kubik.png;                      DestDir: "{tmp}"; Flags: dontcopy
  Source: PIC\kubik_mini3_поворот на 180.bmp; DestDir: "{tmp}"; Flags: dontcopy
  Source: PIC\consultant.bmp;                 DestDir: "{tmp}"; Flags: dontcopy
 
#sub AddOsnBaseF
  #define _pos1  = pos(";", ib[i])
  #define _pos2  = pos(":", ib[i])
  #define _pos3  = pos("/", ib[i])
  #define _pos4  = pos("\", ib[i])
  #define _pos5  = pos("|", ib[i])
 
  #define _len1  = _pos1-1
  #define _len2  = _pos2-_pos1-1
  #define _len3  = _pos3-_pos2-1
  #define _len4  = _pos4-_pos3-1
  #define _len5  = _pos5-_pos4-1
  #define _len6  = len(ib[i])-_len5-1
 
  #define _ib    = copy(ib[i], 0, _len1)
  #define _n     = copy(ib[i], _pos1 + 1, _len2)
  #define _name1 = copy(ib[i], _pos2 + 1, _len3)
  #define _name2 = copy(ib[i], _pos3 + 1, _len4)
  #define _name3 = copy(ib[i], _pos4 + 1, _len5)
  #define _distr = copy(ib[i], _pos5 + 1, _len6)
 
  #define _path = AddBackslash(AddBackslash(SourcePath) + "Source\" + osn_base + "\BASE\" + _ib)
 
  #if FileExists(_path+_ib+ext[0])+FileExists(_path+_ib+ext[1])+FileExists(_path+_ib+ext[2])+FileExists(_path+_ib+ext[3])+FileExists(_path+_ib+ext[4])+FileExists(_path+_ib+ext[5])+FileExists(_path+_ib+ext[6])+FileExists(_path+_ib+ext[7])+FileExists(_path+_ib+ext[8])+FileExists(_path+_ib+ext[9])+FileExists(_path+_ib+ext[10])+FileExists(_path+_ib+ext[11])
    Source: Source\{#osn_base}\BASE\{#_ib}\*;         DestDir: {app}\BASE\{#_ib}; Components: Structure\ib\osn\{#_name1}\{#_ib}; Flags: recursesubdirs;
    Source: Source\RECEIVE\{#_ib}*.ANS;               DestDir: {app}\RECEIVE;     Components: Structure\ib\osn\{#_name1}\{#_ib}; Flags: recursesubdirs;
    Source: Source\{#Structure}\DISTR\{#_distr}*.din; DestDir: {app}\DISTR;       Components: Structure\ib\osn\{#_name1}\{#_ib}; Flags: recursesubdirs;
  #endif
#endsub
 
#sub AddDopBaseF
  #define _pos1  = pos(";", ib[i])
  #define _pos2  = pos(":", ib[i])
  #define _pos3  = pos("/", ib[i])
  #define _pos4  = pos("\", ib[i])
  #define _pos5  = pos("|", ib[i])
 
  #define _len1  = _pos1-1
  #define _len2  = _pos2-_pos1-1
  #define _len3  = _pos3-_pos2-1
  #define _len4  = _pos4-_pos3-1
  #define _len5  = _pos5-_pos4-1
  #define _len6  = len(ib[i])-_len5-1
 
  #define _ib    = copy(ib[i], 0, _len1)
  #define _n     = copy(ib[i], _pos1 + 1, _len2)
  #define _name1 = copy(ib[i], _pos2 + 1, _len3)
  #define _name2 = copy(ib[i], _pos3 + 1, _len4)
  #define _name3 = copy(ib[i], _pos4 + 1, _len5)
  #define _distr = copy(ib[i], _pos5 + 1, _len6)
 
  #define path = AddBackslash(AddBackslash(SourcePath) + "Source\" + dop_base + "\" + _ib)
  #if FileExists(path+_ib+ext[0])+FileExists(path+_ib+ext[1])+FileExists(path+_ib+ext[2])+FileExists(path+_ib+ext[3])+FileExists(path+_ib+ext[4])+FileExists(path+_ib+ext[5])+FileExists(path+_ib+ext[6])+FileExists(path+_ib+ext[7])+FileExists(path+_ib+ext[8])+FileExists(path+_ib+ext[9])+FileExists(path+_ib+ext[10])+FileExists(path+_ib+ext[11])
    Source: Source\{#dop_base}\{#_ib}\*; DestDir: {app}\BASE\{#_ib}; Components: Structure\ib\dop\{#_name1}\{#_ib}; Flags: recursesubdirs;
    Source: Source\RECEIVE\{#_ib}*.ANS; DestDir: {app}\RECEIVE; Components: Structure\ib\dop\{#_name1}\{#_ib}; Flags: recursesubdirs;
    Source: Source\{#Structure}\DISTR\{#_distr}*.din; DestDir: {app}\DISTR; Components: Structure\ib\dop\{#_name1}\{#_ib}; Flags: recursesubdirs;
  #endif
#endsub
 
  ; список каталогов для "ОКНА выбора КОМПОНЕНТОВ"
  ; структура
  Source: Source\{#Structure}\SYSTEM\*; DestDir: {app}\SYSTEM; Components: Structure; Flags: recursesubdirs;
  Source: Source\{#Structure}\CONS.EXE; DestDir: {app};        Components: Structure;
  Source: Source\{#Structure}\cons.chm; DestDir: {app};        Components: Structure;
  Source: Source\{#Structure}\vr*.res;  DestDir: {app};        Components: Structure;
  ; основные ИБ
//  Source: Source\{#osn_base}\BASE\ACN\*;  DestDir: {app}\BASE\ACN; Flags: recursesubdirs; Components: Structure\ib\osn\ACN; Check: DirExists(ExpandConstant('{#osn_base}\BASE\ACN'))
#for {i = 0; i < countIb; i++} AddOsnBaseF
  ; дополнительные ИБ
// Source: Source\Dop_Base\ADV\*;       DestDir: {app}\BASE\ADV; Flags: recursesubdirs; Components: Structure\ib\dop\ADV;
// Check: DirExists(ExpandConstant('D:\-Installer-\.ConsDemo\Source\Dop_Base\ADV'))
// DirExists(ExpandConstant({SourcePath}) Source\{#osn_base}\BASE\ACN)")
#for {i = 0; i < countIb; i++} AddDopBaseF
 
  Source: Source\RECEIVE\CONS*.ANS; DestDir: {app}\RECEIVE; Components: Structure\ib; Flags: recursesubdirs;

Всего записей: 28 | Зарегистр. 18-08-2011 | Отправлено: 10:31 20-09-2011 | Исправлено: ShadowHawk, 10:33 20-09-2011
   

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

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)
articlebot (13-10-2013 23:33): продолжение темы - №15


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru