Inno Setup (создание инсталяционных пакетов). Часть 3

Статус
В этой теме нельзя размещать новые ответы.
EvilAlex

EvilAlex

Старожил
Gnom, если я скину скрипт, вы поможете мне, а то я уже и по справке и по примеру vint56, и по вашему примеру делал, он или не реагирует на снятые галочки в чек боксе и ставит все сразу, или выдает ошибки. Голова уже опухла =(
Все в основном понятно и сделано, осталось главное, это привязать эти два архива к чекбоксу, я уже незнаю что иму туда написать чтоб они начали реагировать на выбор!?
 
Последнее редактирование:
LexBell

LexBell

Борода
Супер модератор
EvilAlex, забей, пройдись погуляй пару часов, подыши свежим воздухом. потом внимательно почитай последние 3 страницы форума и справку - поверь - все получится моментально. помешать этому может только лень, ничего более.
 
H

HoLmEs

Новичок
vint56 написал(а):
HoLmEs ты когда делал первую установку ты все компоненты включил что создался records.inf если ты их не включил потому они не работают
Нажмите для раскрытия...
ну да вроде все, после тестового прогона, создался файл records, я его скинул к основному скрипту, раскоментировал define records и получается такая трабла как я писал ранее((
 
EvilAlex

EvilAlex

Старожил
Gnom написал(а):
EvilAlex, забей, пройдись погуляй пару часов, подыши свежим воздухом. потом внимательно почитай последние 3 страницы форума и справку - поверь - все получится моментально. помешать этому может только лень, ничего более.
Нажмите для раскрытия...
Поле всего того что я сотворил со скриптом, я даже на него ругался =) он не заработал ! А прогуляться как то не очень тянет, только что дождь кончился и дубак на улице, а про свежий воздух я молчу. Если не трудно и есть время, помоги, пожалуйста. Возможно после того как это сделаешь ты и я увижу в чем был мой косяк я пойму...
[MOD="Gnom"]Завтра. Уже некгда сегодня. если сам не справишься к тому времени, или еще кто не сделает за тебя.[/MOD]
 
Последнее редактирование модератором:
vint56

vint56

Ветеран
Проверенный
HoLmEs сколько компонентов у тебя там по у молчанию всего 4
if not ISArcExtract ( 1, OveralPct, 0, ExpandConstant('{src}\rustext.arc'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISArcExtract ( 2, OveralPct, 0, ExpandConstant('{src}\engtext.arc'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISArcExtract ( 3, OveralPct, 0, ExpandConstant('{src}\rusvoice.arc'),ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISArcExtract ( 4, OveralPct, 0, ExpandConstant('{src}\engvoice.arc'),ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
 
EvilAlex

EvilAlex

Старожил
Завтра. Уже некгда сегодня. если сам не справишься к тому времени, или еще кто не сделает за тебя.
Нажмите для раскрытия...
Хорошо, но попыток сделать самому не оставлю. Пытаюсь понять почему он ругаеться на CheckMusik и CheckAudio !?
 
Edison007

Edison007

Ветеран
Модератор
EvilAlex, справку к IsDone, так никто и не читает...
раскомментировать ;#define records не пробовал, после тестового прогона?
и еще как вариант:
Comps1:=0; Comps2:=0; Comps3:=0;
TmpValue:=1;
if BtnGetChecked(Button_1) then Comps1:=Comps1+TmpValue;
TmpValue:=TmpValue*2;
if BtnGetChecked(Button_2) then Comps1:=Comps1+TmpValue;
 
Последнее редактирование:
LexBell

LexBell

Борода
Супер модератор
EvilAlex написал(а):
Пытаюсь понять почему он ругаеться на CheckMusik и CheckAudio !?
Нажмите для раскрытия...
Gnom написал(а):
vilAlex, у тебя уже готовые функции
function Music: Boolean;
.......
function Sound: Boolean;
.......
вот они-то тебе и нужны. используй их вместо тех, которые я привел для примера(вместо CheckMusik и CheckAudio берешь свои Music и Sound).
Нажмите для раскрытия...
:rofl: :rofl: :rofl: :rofl: :rofl: :rofl: :rofl: :rofl:
 
EvilAlex

EvilAlex

Старожил
Edison007 написал(а):
EvilAlex, справку к IsDone, так никто и не читает...
раскомментировать ;#define records не пробовал, после тестового прогона?
и еще как вариант:
Comps1:=0; Comps2:=0; Comps3:=0;
TmpValue:=1;
if BtnGetChecked(Button_1) then Comps1:=Comps1+TmpValue;
TmpValue:=TmpValue*2;
if BtnGetChecked(Button_2) then Comps1:=Comps1+TmpValue;
Нажмите для раскрытия...
Он не доходит до тестового прогона, выдает ошибку на стадии компиляции. а если и тестовый прогон проходит, то чек боксы не работают...

Добавлено через 1 минуту
Gnom написал(а):
:rofl: :rofl: :rofl: :rofl: :rofl: :rofl: :rofl: :rofl:
Нажмите для раскрытия...
да я уже че тока там не писал и твои и свои... он ругаеться не на мои дак на твои !


Ха, я незнаю как, но он перестал ругаться и заработал. на 4 раз когда нажал компилировать, он его таки создал и запустил. прошел тестовый прогон и он заработал =)

Теперь пойду искать в чем же был косяк ... Всем За Все огромное и бесконечное спасибо !
 
Последнее редактирование:
Mailchik

Mailchik

Старожил
Проверенный
EvilAlex написал(а):
я незнаю как, но он перестал ругаться и заработал. на 4 раз когда нажал компилировать, он его таки создал и запустил
Нажмите для раскрытия...
чудес не существует.
[HR][/HR]
EvilAlex написал(а):
Теперь пойду искать в чем же был косяк
Нажмите для раскрытия...
1. В том, что вы указали для компонентов процедуры CheckMusik и CheckAudio, которые отрабатывают нажатие на чекбоксы, но никак не возвращают булев..
2. В модуле ISDone.iss компилятору встречаются непонятные переменные Music и Audio, которые описаны в другом iss.
 
Последнее редактирование:
RameR

RameR

Новичок
EvilAlex, Какой ты скин используешь?) Занимаюсь модерацией скина Tiger.cjstyles!
А на скрине ранее кнопки выглядят такими привлекательными! Вот и хочется посмотреть как они будут на этом скине смотреться!
Спасибо!)
 
sergey3695

sergey3695

Ветеран
Модератор
RameR, это не скин. кнопки с помощью ботвы на форме... понятно. :)
 
RameR

RameR

Новичок
sergey3695 написал(а):
RameR, это не скин. кнопки с помощью ботвы на форме... понятно. :)
Нажмите для раскрытия...
Я сразу заподозрил, что это не скин, так как там Edit's какие-то не стандартные!! Но скин был бы замечательным! Вот и спросил, мало ли) хотя кнопки можно и в скин запихнуть!!
 
H

HoLmEs

Новичок
ребят помогите, версия isdone 0.4.2.5, не могу понять почему при закоментировании define records распаковываются все файлы, а при раскоментировании только часть, мот я здесь что то не правильно отобразил

Код: 
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\setup-1.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\setup-2.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\setup-3.bin'), ExpandConstant('{app}\DI\Data'), false,CallBack, '', '', '') then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_buildinginterior_ b_PC.srep'), ExpandConstant('{app}\DI\Data\bs_buildinginterior_ b_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_buildinginterior_ b_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_buildinginterior_ b_PC.rpack'), true, CallBack ) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_buildinginterior_ PC.srep'), ExpandConstant('{app}\DI\Data\bs_buildinginterior_ PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_buildinginterior_ PC.pcf'), ExpandConstant('{app}\DI\Data\bs_buildinginterior_ PC.rpack'), true, CallBack ) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_b_PC.srep' ), ExpandConstant('{app}\DI\Data\bs_jungle_b_PC.pcf') , '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_b_PC.pcf') , ExpandConstant('{app}\DI\Data\bs_jungle_b_PC.rpack '), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_high_PC.sr ep'), ExpandConstant('{app}\DI\Data\bs_jungle_high_PC.pc f'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_high_PC.pc f'), ExpandConstant('{app}\DI\Data\bs_jungle_high_PC.rp ack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_PC.srep'), ExpandConstant('{app}\DI\Data\bs_jungle_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_jungle_PC.rpack') , true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_laboratory_PC.sre p'), ExpandConstant('{app}\DI\Data\bs_laboratory_PC.pcf '), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_laboratory_PC.pcf '), ExpandConstant('{app}\DI\Data\bs_laboratory_PC.rpa ck'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_military_quarters _PC.srep'), ExpandConstant('{app}\DI\Data\bs_military_quarters _PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_military_quarters _PC.pcf'), ExpandConstant('{app}\DI\Data\bs_military_quarters _PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_quarantine_PC.sre p'), ExpandConstant('{app}\DI\Data\bs_quarantine_PC.pcf '), '', true, CallBack ) then break; 
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_quarantine_PC.pcf '), ExpandConstant('{app}\DI\Data\bs_quarantine_PC.rpa ck'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_ship_PC.srep'), ExpandConstant('{app}\DI\Data\bs_ship_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_ship_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_ship_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_town_PC.srep'), ExpandConstant('{app}\DI\Data\bs_town_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_town_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_town_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_tunnels_PC.srep') , ExpandConstant('{app}\DI\Data\bs_tunnels_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_tunnels_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_tunnels_PC.rpack' ), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\menuback_PC.srep'), ExpandConstant('{app}\DI\Data\menuback_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\menuback_PC.pcf'), ExpandConstant('{app}\DI\Data\menuback_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\weapons_PC.srep'), ExpandConstant('{app}\DI\Data\weapons_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\weapons_PC.pcf'), ExpandConstant('{app}\DI\Data\weapons_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\music_stream.srep'), ExpandConstant('{app}\DI\Data\music_stream.xwb'), '', true, CallBack ) then break;
 
N

neorom

Мимокрокодил
RameR можеш поделится черновим вариантом скрипта под Fеnixx или єто секрет, бо я не пойму не как ?
 
EvilAlex

EvilAlex

Старожил
kkels написал(а):
Привет, можно ли как то на странице Компоненты сделать фон одинаковым?

http://s14.directupload.net/images/130501/etdmtipe.png вот здесь фон белый где расписаны комп. а хотелось бы тот же фон что и вокруг)
Нажмите для раскрытия...
Код: 
procedure RedesignWizardForm;
begin
  with WizardForm.ComponentsList do
  begin
    Color := clScrollBar; //или $cccccc
  end;
end;
 
urban

urban

Старожил
у кого-то есть пример для переключения языка на ходу?у vinta не полный пример
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху