Создание инсталляторов для модпаков на базе Inno Setup

[Andrew_Dark]

Мужики, помогите пожалуйста, вот какая проблемка нарисовалась, вроде всё прописал правильно, но при наведении на компоненты в инсталляторе ниже 45 го не отображаются ни описание, ни картинка, гляньте, может кто поймёт что к чему??? Вот ссылка на модпак.

https://yadi.sk/d/TiS5PpHsUEDEu

Пара скринов:

И ещё, на содержание описания перков внимание не обращать, еще не правил (брал за основу инстала скрипты liked)

Edited June 20, 2014 by Darksoul

[Kotyarko_O]

но при наведении на компоненты в инсталляторе ниже 45 го не отображаются ни описание, ни картинка

Ты хотел написать 43-го?

А чего они должны отображаться дальше, если:

  AddCompDescription(1, CustomMessage('CompDesc1'), 'CompDescImg1.bmp');
  AddCompDescription(2, CustomMessage('CompDesc2'), 'CompDescImg2.bmp');
  AddCompDescription(3, CustomMessage('CompDesc3'), 'CompDescImg3.bmp');
  AddCompDescription(4, CustomMessage('CompDesc4'), 'CompDescImg4.bmp');
  AddCompDescription(5, CustomMessage('CompDesc5'), 'CompDescImg5.bmp');
  AddCompDescription(6, CustomMessage('CompDesc6'), 'CompDescImg6.bmp');
  AddCompDescription(7, CustomMessage('CompDesc7'), 'CompDescImg7.bmp');
  AddCompDescription(8, CustomMessage('CompDesc8'), 'CompDescImg8.bmp');
  AddCompDescription(9, CustomMessage('CompDesc9'), 'CompDescImg9.bmp');
  AddCompDescription(10, CustomMessage('CompDesc10'), 'CompDescImg10.bmp');
  AddCompDescription(11, CustomMessage('CompDesc11'), 'CompDescImg11.bmp');
  AddCompDescription(12, CustomMessage('CompDesc12'), 'CompDescImg12.bmp');
  AddCompDescription(13, CustomMessage('CompDesc13'), 'CompDescImg13.bmp');
  AddCompDescription(14, CustomMessage('CompDesc14'), 'CompDescImg14.bmp');
  AddCompDescription(15, CustomMessage('CompDesc15'), 'CompDescImg15.bmp');
  AddCompDescription(16, CustomMessage('CompDesc16'), 'CompDescImg16.bmp');
  AddCompDescription(17, CustomMessage('CompDesc17'), 'CompDescImg17.bmp');
  AddCompDescription(18, CustomMessage('CompDesc18'), 'CompDescImg18.bmp');
  AddCompDescription(19, CustomMessage('CompDesc19'), 'CompDescImg19.bmp');
  AddCompDescription(20, CustomMessage('CompDesc20'), 'CompDescImg20.bmp');
  AddCompDescription(21, CustomMessage('CompDesc21'), 'CompDescImg21.bmp');
  AddCompDescription(22, CustomMessage('CompDesc22'), 'CompDescImg22.bmp');
  AddCompDescription(23, CustomMessage('CompDesc23'), 'CompDescImg23.bmp');
  AddCompDescription(24, CustomMessage('CompDesc24'), 'CompDescImg24.bmp');
  AddCompDescription(25, CustomMessage('CompDesc25'), 'CompDescImg25.bmp');
  AddCompDescription(26, CustomMessage('CompDesc26'), 'CompDescImg26.bmp');
  AddCompDescription(27, CustomMessage('CompDesc27'), 'CompDescImg27.bmp');
  AddCompDescription(28, CustomMessage('CompDesc28'), 'CompDescImg28.bmp');
  AddCompDescription(29, CustomMessage('CompDesc29'), 'CompDescImg29.bmp');
  AddCompDescription(30, CustomMessage('CompDesc30'), 'CompDescImg30.bmp');
  AddCompDescription(31, CustomMessage('CompDesc31'), 'CompDescImg31.bmp');
  AddCompDescription(32, CustomMessage('CompDesc32'), 'CompDescImg32.bmp');
  AddCompDescription(33, CustomMessage('CompDesc33'), 'CompDescImg33.bmp');
  AddCompDescription(34, CustomMessage('CompDesc34'), 'CompDescImg34.bmp');
  AddCompDescription(35, CustomMessage('CompDesc35'), 'CompDescImg35.bmp');
  AddCompDescription(36, CustomMessage('CompDesc36'), 'CompDescImg36.bmp');
  AddCompDescription(37, CustomMessage('CompDesc37'), 'CompDescImg37.bmp');
  AddCompDescription(38, CustomMessage('CompDesc38'), 'CompDescImg38.bmp');
  AddCompDescription(39, CustomMessage('CompDesc39'), 'CompDescImg39.bmp');
  AddCompDescription(40, CustomMessage('CompDesc40'), 'CompDescImg39.bmp');
  AddCompDescription(41, CustomMessage('CompDesc41'), 'CompDescImg39.bmp');
  AddCompDescription(42, CustomMessage('CompDesc42'), 'CompDescImg39.bmp');
  AddCompDescription(43, CustomMessage('CompDesc43'), 'CompDescImg39.bmp');

дальше ничего и не прописано..

[Andrew_Dark]

как это? Я же проверял:) вот я олень:)

Я тупо забыл и там дописать до 100, спс, реально помог, с утра голову ломал в чём проблема:) с меня благодарность в теме с моим модпаком, + если комп начнёт тормозить, обращайся, помогу:)

дописал, теперь такое:

но там же вроде дописаны везде были CompDesc, почему оно орёт???

Понял, это я дурак букву задел и стёр:)

Спс, помог, у меня всегда основной проблеммой была невнимательность:( 

Теперь всё работает, осталось прописать источники компонентов и модпак готов:) кстати, как озвучка и оформление? норм?

Edited June 20, 2014 by Darksoul

[Kotyarko_O]

 

 

кстати, как озвучка и оформление? норм?

Озвучка, как по мне, ни к чему. Оформление - на любителя (видимо, я не из этих любителей) :)

А с деинсталлятором траблы.. не хочет работать, проверь.

[Andrew_Dark]

Это я в курсе, как его аккуратно вообще убрать???

[Kotyarko_O]

Это я в курсе, как его аккуратно вообще убрать???

 В смысле, чтобы он вообще не создавался?

[ventura69]

Мозг уже сломался, а умных мыслей нет. Вопрос к знающим:

Создал кнопку

{ NewButton2 }
NewButton2 := TNewButton.Create(WizardForm);
with NewButton2 do
begin
Parent := WizardForm;
Left := ScaleX(700);
Top := ScaleY(325);
Width := ScaleX(97);
Height := ScaleY(25);
Caption := 'NewButton2';
OnClick := @NewButton2Click;
end;

Соответственно задал выполнение действия

procedure NewButton2Click(Sender: TObject);
begin
........
end;

Сам вопрос:

А как мне сделать, чтобы она работала, как триггер? То есть, при повторном клике она отменяла предыдущее задание. Ну или выполняла другое действие?

[Andrew_Dark]

 В смысле, чтобы он вообще не создавался?

Ага, он меня бесит, и один хрен я всегда удаляю через программы и компоненты, чего и вам советую.:)

[Kotyarko_O]

То есть, при повторном клике она отменяла предыдущее задание.

[Code]
var
Flag: boolean;

procedure NewButton2Click(Sender: TObject);
begin
  If not Flag then begin
//тут первое действие\\
    Flag:= True;
  end else begin
//тут второе действие\\
    Flag:= False;
  end;
end;

Flag:= True, Flag:= False - это типо обозначение для инсталлятора, что должно быть выполнено по-умолчанию. (в вышеприведённом примере - первое действие будет по-умолчанию).

 

 

Ага, он меня бесит, и один хрен я всегда удаляю через программы и компоненты, чего и вам советую.:)

[Setup]
Uninstallable=no

Edited June 20, 2014 by Kotyarko_O

[Andrew_Dark]

[Code]
var
Flag: boolean;

procedure NewButton2Click(Sender: TObject);
begin
  If not Flag then begin
//тут первое действие\\
    Flag:= True;
  end else begin
//тут второе действие\\
    Flag:= False;
  end;
end;

Flag:= True, Flag:= False - это типо обозначение для инсталлятора, что должно быть выполнено по-умолчанию. (в вышеприведённом примере - первое действие будет по-умолчанию).

[Setup]
Uninstallable=no

Правда видно, что в инглише я 0??? если бы сразу перевёл, то и не спрашивал бы, нагуглил уже немного раньше, но всё равно спс.

[ventura69]

[Code]
var
Flag: boolean;

procedure NewButton2Click(Sender: TObject);
begin
  If not Flag then begin
//тут первое действие\\
    Flag:= True;
  end else begin
//тут второе действие\\
    Flag:= False;
  end;
end;

Flag:= True, Flag:= False - это типо обозначение для инсталлятора, что должно быть выполнено по-умолчанию. (в вышеприведённом примере - первое действие будет по-умолчанию).

Мммм... Я не правильно объяснил суть проблемы. У меня выполняется какое-то задание (условно: в папку {tmp} я забросил mp3 и идет воспроизведение). По нажатии  на NewButton2 надо очистить  {tmp}  (воспроизведение остановилось). При повторном нажатии на NewButton2 снова забрасываем в {tmp} тот же mp3. 

[Kotyarko_O]

 

 

Я не правильно объяснил суть проблемы.

Всё правильно.

[ventura69]

Всё правильно.

Тогда я туплю. Как очистить {tmp} и остановить воспроизведение?

[Kotyarko_O]

 

 

Тогда я туплю. Как очистить {tmp} и остановить воспроизведение?

bass.dll используешь для воспроизведения музыки?

[ventura69]

bass.dll используешь для воспроизведения музыки?

угу

[Kotyarko_O]

@ventura69, вот скрипт от @Darksoul, с кнопкой включения\отключения музыки: Music.rar

[ventura69]

@ventura69, вот скрипт от @Darksoul, с кнопкой включения\отключения музыки: Music.rar

Спасибо. Забрал. Поломаю еще голову сам, если не придумается ничего - тогда воспользуюсь :-)

[Andrew_Dark]

Спасибо. Забрал. Поломаю еще голову сам, если не придумается ничего - тогда воспользуюсь :-)

СОВЕТ: у меня не всё что касается музыки, находится  в music. Некоторые запчасти ищите и в основном скрипте.

Edited June 20, 2014 by Darksoul

[Kotyarko_O]

del

Edited June 20, 2014 by Kotyarko_O

[Andrew_Dark]

del

всмысле?