Jump to content
Korean Random

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


Recommended Posts

Крепится не к ним, а к реальному индексу чекбоксов, начиная с 0.

  Tweaker.AddCheckBox('<<WoT Tweaker Plus>>', '90.6 Мб', 0, True, True, True, False, nil);               //0
  Tweaker.AddCheckBox('Убрать Отображение облаков', '90.6 Мб', 1, True, True, False, True, nil);         //1
  Tweaker.AddCheckBox('Убрать Эфект движения деревьев', '90.6 Мб', 1, True, True, False, True, nil);     //2
  Tweaker.AddCheckBox('Убрать Эфекты разрушения объектов', '90.6 Мб', 1, True, True, False, True, nil);  //3
  Tweaker.AddCheckBox('Убрать Эфекты поподания в объекты', '90.6 Мб', 1, True, True, False, True, nil);  //4
  Tweaker.AddCheckBox('Убрать Эфект уничтожения танка', '90.6 Мб', 1, True, True, False, True, nil);     //5
  Tweaker.AddCheckBox('Убрать Эфект поподания в танк', '90.6 Мб', 1, True, True, False, True, nil);      //6
  Tweaker.AddCheckBox('Убрать Эфект взрывов снорядов', '90.6 Мб', 1, True, True, False, True, nil);      //7
  Tweaker.AddCheckBox('Убрать Дым и пламя при выстреле', '90.6 Мб', 1, True, True, False, True, nil);    //8
  Tweaker.AddCheckBox('Убрать Дым от уничтоженных танков', '90.6 Мб', 1, True, True, False, True, nil);  //9
  Tweaker.AddCheckBox('Убрать Дым из выхлопной трубы', '90.6 Мб', 1, True, True, False, True, nil);      //10

если не трудно 4 примера можно

Link to comment
Short link
Share on other sites

Зачем..?

Прикрепляй файлы к числам, которые я закомментировал справа.

вот так чтоль 

[Files]
Source: "***"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(1);
Source: "***"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(2);
Source: "***"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(3);
[Code]
var
  Tweaker: TNewCheckListBox;
Procedure InitializeWizard1();
begin
  Tweaker:=TNewCheckListBox.Create(WizardForm);
  Tweaker.Parent:=WizardForm.SelectTasksPage;
  Tweaker.Left:=ScaleX(32);
  Tweaker.Top:=ScaleY(21);
  Tweaker.Width:=ScaleX(729);
  Tweaker.Height:=ScaleY(248);
  Tweaker.Cursor:=crHand;
  Tweaker.BorderStyle:=bsSingle;
  Tweaker.Color:=clWindow;
  Tweaker.DragCursor:=crHand;
  Tweaker.DragMode:=dmAutomatic;
  Tweaker.Flat:=True;
  Tweaker.Font.Color:=clBlue;
  Tweaker.Font.Height:=-12;
  Tweaker.Font.Name:='@Arial Unicode MS';
  Tweaker.ParentFont:=False;
  Tweaker.ShowLines:=True;
  Tweaker.TreeViewStyle:=True;
  Tweaker.ItemHeightFixed:=True;
//**************************************************************************//
  Tweaker.AddCheckBox('<<WoT Tweaker Plus>>', '1.0 Мб', 0, True, True, True, False, nil);
  Tweaker.AddCheckBox('Убрать Отображение облаков', '0.1 Мб', 1, True, True, True, True, nil);
  Tweaker.AddCheckBox('Убрать Эфект движения деревьев', '0.1 Мб', 2, True, True, True, True, nil);
  Tweaker.AddCheckBox('Убрать Эфекты разрушения объектов', '0.1 Мб', 3, True, True, True, True, nil);
  Tweaker.AddCheckBox('Убрать Эфекты поподания в объекты', '0.1 Мб', 1, True, True, True, True, nil);
  Tweaker.AddCheckBox('Убрать Эфект уничтожения танка', '0.1 Мб', 1, True, True, True, True, nil);
  Tweaker.AddCheckBox('Убрать Эфект поподания в танк', '0.1 Мб', 1, True, True, True, True, nil);
  Tweaker.AddCheckBox('Убрать Эфект взрывов снорядов', '0.1 Мб', 1, True, True, True, True, nil);
  Tweaker.AddCheckBox('Убрать Дым и пламя при выстреле', '0.1 Мб', 1, True, True, True, True, nil);
  Tweaker.AddCheckBox('Убрать Дым от уничтоженных танков', '0.1 Мб', 1, True, True, True, True, nil);
  Tweaker.AddCheckBox('Убрать Дым из выхлопной трубы', '0.1 Мб', 1, True, True, True, True, nil);
end;
//**************************************************************************//
Function CheckBoxChecked(Idx: Integer): Boolean;
begin
case Idx of
0:
  Result := Tweaker.Checked[0];
1:
  Result := Tweaker.Checked[1];
end;
end;
Link to comment
Short link
Share on other sites

ну ёпт..

'Это вообще не трогай. Это уровень вложенности, он не относится к индексу компонента.'

post-16412-0-84008200-1417626549_thumb.jpg

 

Первый чекбокс, который ты добавляешь - имеет индекс 0. Второй чекбокс - индекс 1. Третий - индекс 2.

В этом коде:

  Tweaker.AddCheckBox('<<WoT Tweaker Plus>>', '1.0 Мб', 0, True, True, True, False, nil);
  Tweaker.AddCheckBox('Убрать Отображение облаков', '0.1 Мб', 1, True, True, False, True, nil);
  Tweaker.AddCheckBox('Убрать Эфект движения деревьев', '0.1 Мб', 2, True, True, False, True, nil);
  Tweaker.AddCheckBox('Убрать Эфекты разрушения объектов', '0.1 Мб', 3, True, True, False, True, nil);
  Tweaker.AddCheckBox('Убрать Эфекты поподания в объекты', '0.1 Мб', 1, True, True, False, True, nil);
  Tweaker.AddCheckBox('Убрать Эфект уничтожения танка', '0.1 Мб', 1, True, True, False, True, nil);
  Tweaker.AddCheckBox('Убрать Эфект поподания в танк', '0.1 Мб', 1, True, True, False, True, nil);
  Tweaker.AddCheckBox('Убрать Эфект взрывов снорядов', '0.1 Мб', 1, True, True, False, True, nil);
  Tweaker.AddCheckBox('Убрать Дым и пламя при выстреле', '0.1 Мб', 1, True, True, False, True, nil);
  Tweaker.AddCheckBox('Убрать Дым от уничтоженных танков', '0.1 Мб', 1, True, True, False, True, nil);
  Tweaker.AddCheckBox('Убрать Дым из выхлопной трубы', '0.1 Мб', 1, True, True, False, True, nil);

индекса НЕТ! Он не пишется. Здесь только мозгом нужно считать. А на программном уровне индекс есть.

 

Короче, тут я все индексы уже перечислял:

  Tweaker.AddCheckBox('<<WoT Tweaker Plus>>', '90.6 Мб', 0, True, True, True, False, nil);               //0
  Tweaker.AddCheckBox('Убрать Отображение облаков', '90.6 Мб', 1, True, True, False, True, nil);         //1
  Tweaker.AddCheckBox('Убрать Эфект движения деревьев', '90.6 Мб', 1, True, True, False, True, nil);     //2
  Tweaker.AddCheckBox('Убрать Эфекты разрушения объектов', '90.6 Мб', 1, True, True, False, True, nil);  //3
  Tweaker.AddCheckBox('Убрать Эфекты поподания в объекты', '90.6 Мб', 1, True, True, False, True, nil);  //4
  Tweaker.AddCheckBox('Убрать Эфект уничтожения танка', '90.6 Мб', 1, True, True, False, True, nil);     //5
  Tweaker.AddCheckBox('Убрать Эфект поподания в танк', '90.6 Мб', 1, True, True, False, True, nil);      //6
  Tweaker.AddCheckBox('Убрать Эфект взрывов снорядов', '90.6 Мб', 1, True, True, False, True, nil);      //7
  Tweaker.AddCheckBox('Убрать Дым и пламя при выстреле', '90.6 Мб', 1, True, True, False, True, nil);    //8
  Tweaker.AddCheckBox('Убрать Дым от уничтоженных танков', '90.6 Мб', 1, True, True, False, True, nil);  //9
  Tweaker.AddCheckBox('Убрать Дым из выхлопной трубы', '90.6 Мб', 1, True, True, False, True, nil);      //10

Нулевой не трогай. Начинай привязку к файлам с первого.

 

'Вот это, с 10-ю пунктами тоже не трогай. Тебе к функциям вообще ещё рано.'

Function CheckBoxChecked(Idx: Integer): Boolean;
begin
case Idx of
0:
  Result := Tweaker.Checked[0];
1:
  Result := Tweaker.Checked[1];
  3:
  Result := Tweaker.Checked[3];
4:
  Result := Tweaker.Checked[4];
  5:
  Result := Tweaker.Checked[5];
6:
  Result := Tweaker.Checked[6];
  7:
  Result := Tweaker.Checked[7];
8:
  Result := Tweaker.Checked[8];
  9:
  Result := Tweaker.Checked[9];
10:
  Result := Tweaker.Checked[10];
end;
end;

Edited by Kotyarko_O
Link to comment
Short link
Share on other sites

 

все,дошло до меня 

вот так?

[Files]
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(1);
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(2);
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(3);
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(4);
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(5);
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(6);
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(7);
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(8);
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(9);
Source: "****"; DestDir: "{app}\****"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: CheckBoxChecked(10);
[code]
var
  Tweaker: TNewCheckListBox;
Procedure InitializeWizard1();
begin
  Tweaker:=TNewCheckListBox.Create(WizardForm);
  Tweaker.Parent:=WizardForm.SelectTasksPage;
  Tweaker.Left:=ScaleX(32);
  Tweaker.Top:=ScaleY(21);
  Tweaker.Width:=ScaleX(729);
  Tweaker.Height:=ScaleY(248);
  Tweaker.Cursor:=crHand;
  Tweaker.BorderStyle:=bsSingle;
  Tweaker.Color:=clWindow;
  Tweaker.DragCursor:=crHand;
  Tweaker.DragMode:=dmAutomatic;
  Tweaker.Flat:=True;
  Tweaker.Font.Color:=clBlue;
  Tweaker.Font.Height:=-12;
  Tweaker.Font.Name:='@Arial Unicode MS';
  Tweaker.ParentFont:=False;
  Tweaker.ShowLines:=True;
  Tweaker.TreeViewStyle:=True;
  Tweaker.ItemHeightFixed:=True;
//**************************************************************************//
  Tweaker.AddCheckBox('<<WoT Tweaker Plus>>', '', 0, True, True, True, False, nil);                     //0
  Tweaker.AddCheckBox('Убрать Отображение облаков', '0.1 Мб', 1, True, True, True, True, nil);          //1
  Tweaker.AddCheckBox('Убрать Эфект движения деревьев', '0.1 Мб', 1, True, True, True, True, nil);      //2
  Tweaker.AddCheckBox('Убрать Эфекты разрушения объектов', '0.1 Мб', 1, True, True, True, True, nil);   //3
  Tweaker.AddCheckBox('Убрать Эфекты поподания в объекты', '0.1 Мб', 1, True, True, True, True, nil);   //4
  Tweaker.AddCheckBox('Убрать Эфект уничтожения танка', '0.1 Мб', 1, True, True, True, True, nil);      //5
  Tweaker.AddCheckBox('Убрать Эфект поподания в танк', '0.1 Мб', 1, True, True, True, True, nil);       //6
  Tweaker.AddCheckBox('Убрать Эфект взрывов снорядов', '0.1 Мб', 1, True, True, True, True, nil);       //7
  Tweaker.AddCheckBox('Убрать Дым и пламя при выстреле', '0.1 Мб', 1, True, True, True, True, nil);     //8
  Tweaker.AddCheckBox('Убрать Дым от уничтоженных танков', '0.1 Мб', 1, True, True, True, True, nil);   //9
  Tweaker.AddCheckBox('Убрать Дым из выхлопной трубы', '0.1 Мб', 1, True, True, True, True, nil);       //10
end;
//**************************************************************************//
Function CheckBoxChecked(Idx: Integer): Boolean;
begin
case Idx of
0:
  Result := Tweaker.Checked[0];
1:
  Result := Tweaker.Checked[1];
  2:
  Result := Tweaker.Checked[2];
  3:
  Result := Tweaker.Checked[3];
4:
  Result := Tweaker.Checked[4];
  5:
  Result := Tweaker.Checked[5];
6:
  Result := Tweaker.Checked[6];
  7:
  Result := Tweaker.Checked[7];
8:
  Result := Tweaker.Checked[8];
  9:
  Result := Tweaker.Checked[9];
10:
  Result := Tweaker.Checked[10];
end;
end;

вроде правильно понял

Edited by Ekspoint
Link to comment
Short link
Share on other sites

@Ekspoint, всё же лучше так:

  Tweaker.AddCheckBox('<<WoT Tweaker Plus>>', '', 0, True, True, True, False, nil);                      //0
  Tweaker.AddCheckBox('Убрать Отображение облаков', '0.1 Мб', 1, True, True, False, True, nil);          //1
  Tweaker.AddCheckBox('Убрать Эфект движения деревьев', '0.1 Мб', 1, True, True, False, True, nil);      //2
  Tweaker.AddCheckBox('Убрать Эфекты разрушения объектов', '0.1 Мб', 1, True, True, False, True, nil);   //3
  Tweaker.AddCheckBox('Убрать Эфекты поподания в объекты', '0.1 Мб', 1, True, True, False, True, nil);   //4
  Tweaker.AddCheckBox('Убрать Эфект уничтожения танка', '0.1 Мб', 1, True, True, False, True, nil);      //5
  Tweaker.AddCheckBox('Убрать Эфект поподания в танк', '0.1 Мб', 1, True, True, False, True, nil);       //6
  Tweaker.AddCheckBox('Убрать Эфект взрывов снорядов', '0.1 Мб', 1, True, True, False, True, nil);       //7
  Tweaker.AddCheckBox('Убрать Дым и пламя при выстреле', '0.1 Мб', 1, True, True, False, True, nil);     //8
  Tweaker.AddCheckBox('Убрать Дым от уничтоженных танков', '0.1 Мб', 1, True, True, False, True, nil);   //9
  Tweaker.AddCheckBox('Убрать Дым из выхлопной трубы', '0.1 Мб', 1, True, True, False, True, nil);       //10
Link to comment
Short link
Share on other sites

 

@Ekspoint, всё же лучше так:

  Tweaker.AddCheckBox('<<WoT Tweaker Plus>>', '', 0, True, True, True, False, nil);                      //0
  Tweaker.AddCheckBox('Убрать Отображение облаков', '0.1 Мб', 1, True, True, False, True, nil);          //1
  Tweaker.AddCheckBox('Убрать Эфект движения деревьев', '0.1 Мб', 1, True, True, False, True, nil);      //2
  Tweaker.AddCheckBox('Убрать Эфекты разрушения объектов', '0.1 Мб', 1, True, True, False, True, nil);   //3
  Tweaker.AddCheckBox('Убрать Эфекты поподания в объекты', '0.1 Мб', 1, True, True, False, True, nil);   //4
  Tweaker.AddCheckBox('Убрать Эфект уничтожения танка', '0.1 Мб', 1, True, True, False, True, nil);      //5
  Tweaker.AddCheckBox('Убрать Эфект поподания в танк', '0.1 Мб', 1, True, True, False, True, nil);       //6
  Tweaker.AddCheckBox('Убрать Эфект взрывов снорядов', '0.1 Мб', 1, True, True, False, True, nil);       //7
  Tweaker.AddCheckBox('Убрать Дым и пламя при выстреле', '0.1 Мб', 1, True, True, False, True, nil);     //8
  Tweaker.AddCheckBox('Убрать Дым от уничтоженных танков', '0.1 Мб', 1, True, True, False, True, nil);   //9
  Tweaker.AddCheckBox('Убрать Дым из выхлопной трубы', '0.1 Мб', 1, True, True, False, True, nil);       //10

неее, я имею ввиду чтобы писалось на стр установки какие компоненты твикера я выбрал

Link to comment
Short link
Share on other sites

неее, я имею ввиду чтобы писалось на стр установки какие компоненты твикера я выбрал

Я не про это отвечал. Я написал то сообщение до того, как ты отредактировал своё.

 

а как в секцию [Tasks] добавить что бы писало что выбрал,а то не пишет

 какие флаги доступны и куда их вписывать?

Чтобы где писало?

Link to comment
Short link
Share on other sites

Явно есть куда стремиться :)

- Между "Отступаем" и "В ангар" 160 пикселей, а между "В ангар" и "Так точно" 150, не хорошо.

- На 4 скрине надпись "Требуется как минимум ..." требует отступов снизу и слева

- Картинка в начале явно не привлекает к дальнейшему использованию модпака, как и верхняя картинка.

- FAQ тоже требует отступов. Вот как придет Win10 со своим интерфейсом, там еще можно поглядеть, но скорее всего они (отступы) все равно нужны.

- "Выберите компоненты которые хотите...." зачем такой странный отступ слева? Да и сверху можно уменьшить. А чем больше список компонентов - тем лучше)

учту

Link to comment
Short link
Share on other sites

Я не про это отвечал. Я написал то сообщение до того, как ты отредактировал своё.

 

Чтобы где писало?

Можете кинуть сюда , как у вас получилось , а то Вы явно больше разбираетесь в этом , желательно с [Tasks]

@Pokaritel_VBR, аа, ещё: "Лицензия", через "и"; "инсталлятор", а не "инстолятор".

 

Дело в том , что не я писал лицензию)Я просто тупо сплагиатил)

Link to comment
Short link
Share on other sites

 

 

Можете кинуть сюда , как у вас получилось , а то Вы явно больше разбираетесь в этом , желательно с [Tasks]
Что кинуть? Страницу твикера?

 

 

 

Дело в том , что не я писал лицензию)Я просто тупо сплагиатил)
Без разницы.
Link to comment
Short link
Share on other sites

Что кинуть? Страницу твикера?

 

 

 

Без разницы.

 

да сам твикер со страницей и таксксом и кодом , кароче , чтобы работал)

Дык у вас, батенька, лицензия-то не лицензионная выходит... )))))))))) 

Оценил юмор, лайк поставил)

Link to comment
Short link
Share on other sites

да сам твикер со страницей и таксксом и кодом , кароче , чтобы работал)

 

[Tasks]
Name: "Tweaker"; Description: "<<WoT Tweaker>>";
Name: "Tweaker\1"; Description: "Убрать Отображение облаков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\2"; Description: "Убрать Эфект движения деревьев"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\3"; Description: "Убрать Эфекты разрушения объектов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\4"; Description: "Убрать Эфекты поподания в объекты"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\5"; Description: "Убрать Эфект уничтожения танка"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\6"; Description: "Убрать Эфект поподания в танк"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\7"; Description: "Убрать Эфект взрывов снорядов"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\8"; Description: "Убрать Дым и пламя при выстреле"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\9"; Description: "Убрать Дым от уничтоженных танков"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
Name: "Tweaker\10"; Description: "Убрать Дым из выхлопной трубы"; GroupDescription: "Отключение эффектов:"; Flags: unchecked;
[Files] //путь сам задай-это пример
Source: "моды\твикер\Убрать Отображение облаков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\1;
Source: "моды\твикер\Убрать Эфект движения деревьев\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\2; 
Source: "моды\твикер\Убрать Эфекты разрушения объектов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\3; 
Source: "моды\твикер\Убрать Эфекты поподания в объекты\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\4;
Source: "моды\твикер\Убрать Эфект уничтожения танка\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\5;
Source: "моды\твикер\Убрать Эфект поподания в танк\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\6;
Source: "моды\твикер\Убрать Эфект взрывов снорядов\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\7;
Source: "моды\твикер\Убрать Дым и пламя при выстреле\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\8;
Source: "моды\твикер\Убрать Дым от уничтоженных танков\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\9;
Source: "моды\твикер\Убрать Дым из выхлопной трубы\*"; DestDir: "{app}\res_mods\{#Patch}"; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: Tweaker\10;
Link to comment
Short link
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...