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

[Slawa 0]

Приношу свои извинения за мою безграмотность компьютерную, но это оно я так понимаю? --- Дополнения к конфигу XVM:
Включение процента побед (окно загрузки боя, список игроков по TAB).
Данный конфиг вы можете скачать, если хотите видеть статистику по %-побед игроков, на экране загрузки боя и списке игроков по нажатию клавиши TAB.
Ставится как дополнение к основному конфигу (содержимое архива извлечь в папку с игрой, подтверждая замену).
Выглядит вот так:

Прикрепленный файл  С процентом побед в окне загрузки и по TAB.rar   1,91 Кб   236 раз скачано

[Kotyarko_O 1,906]

@Slawa, нет. Там выше дополнений есть 2 полосы со скачиваемыми файлами - то и есть конфиги.
И, дабы не разводить оффтоп в этой теме, пожалуйста, пишите в ту.

[ZLoy 14]

Может кто подскажет как добавить вот это к коментам ? 

[Ekspoint 2,122]

Безымянный.pngМожет кто подскажет как добавить вот это к коментам ? 

это картинка

[Andrew_Dark 8]

del

 

Edited November 15, 2014 by Darksoul

[ZLoy 14]

InnoScriptGenerator_v_1.0.3.1.rarВот может кому понадобится !!!

Прежнее название ScriptMaker. Удобная оболочка для облегчения написания скриптов установки для Inno Setup. Обладает некоторыми полезными функциями.

[Ekspoint 2,122]

Edited November 15, 2014 by Ekspoint

[Andrew_Dark 8]

del

Edited November 15, 2014 by Darksoul

[Kotyarko_O 1,906]

[Andrew_Dark 8]

Исправил, работает, а тебе ржать никто не разрешал, "мастер" 

[Ekspoint 2,122]

Edited November 15, 2014 by Ekspoint

[Andrew_Dark 8]

Ты сначала измени то убожество, что клану сотворил, не дизайн, а убожество, очки чтоли купи, кто тебя учил на тёмном цвете кривить текст темно-зелёным? Не видно почти даже что написано... Ты там маты написал, и боишься чтобы мамка не читанула?

[Kotyarko_O 1,906]

[Ekspoint 2,122]

как скомпилировать скин?

[Kotyarko_O 1,906]

как скомпилировать скин?

"Сохранить как...".

[Ekspoint 2,122]

"Сохранить как...".

он сохраняет в skinproj, а надо cjstyles

[Kotyarko_O 1,906]

он сохраняет в skinproj, а надо cjstyles

[Ekspoint 2,122]

20.11.png

аааа понял,спс

[Prost 1]

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

[Kotyarko_O 1,906]

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

'Есть пример.'

[Setup]
AppName=Моя программа
AppVersion=1.5
AppPublisher=YURSHAT
AppPublisherURL=http://krinkels.org/
DefaultDirName={pf}\Моя программа

[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"

[CustomMessages]
RU.CompName1=Компонент 1
RU.CompName2=Компонент 2
RU.ComponentsInfo=Наведите курсор мыши на компонент, чтобы прочитать его описание.
RU.ComponentsImgInfo=Наведите курсор мыши на компонент, чтобы посмотреть его превью.
RU.CompDesc1=Описание первого компонента
RU.CompDesc2=Описание второго компонента

[Files]
Source: "compiler:WizModernImage.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy
Source: "compiler:WizModernImage-IS.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: comp1; Description: "{cm:CompName1}"; Types: full
Name: comp2; Description: "{cm:CompName2}"; Types: full

[Code]
type
  TComponentDesc = record
    Description: String;
    ImageName: String;
    Index: Integer;
  end;

var
  CompDescs: array of TComponentDesc;
  CompDescPanel, CompDescImgPanel: TPanel;
  CompDescText: array[1..2] of TLabel;
  CompIndex, LastIndex: Integer;
  CompDescImg: TBitmapImage;

procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var
  i: Integer;
begin
  if Index = LastIndex then Exit;
  CompIndex := -1;
  for i := 0 to GetArrayLength(CompDescs) -1 do
  begin
    if (CompDescs[i].Index = Index) then
    begin
      CompIndex := i;
      Break;
    end;
  end;
  if (CompIndex >= 0) and (Area = iaItem) then
  begin
    if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
      ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
    CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
    CompDescImg.Show;

    CompDescText[2].Caption := CompDescs[CompIndex].Description;
    CompDescText[2].Enabled := True;
  end else
  begin
    CompDescText[2].Caption := CustomMessage('ComponentsInfo');
    CompDescText[2].Enabled := False;
    CompDescImg.Hide;
  end;
  LastIndex := Index;
end;

procedure CompListMouseLeave(Sender: TObject);
begin
  CompDescImg.Hide;
  CompDescText[2].Caption := CustomMessage('ComponentsInfo');
  CompDescText[2].Enabled := False;
  LastIndex := -1;
end;

procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);
var
  i: Integer;
begin
  i := GetArrayLength(CompDescs);
  SetArrayLength(CompDescs, i + 1);
  CompDescs[i].Description := ADescription;
  CompDescs[i].ImageName := AImageName;
  CompDescs[i].Index := AIndex - 1
end;

procedure InitializeWizard();
begin
  WizardForm.SelectComponentsLabel.Hide;
  WizardForm.TypesCombo.Hide;
  WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(205));
  WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;
  WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;

  CompDescImgPanel := TPanel.Create(WizardForm);
  with CompDescImgPanel do
  begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120));
    BevelInner := bvLowered;
  end;

  CompDescText[1] := TLabel.Create(WizardForm);
  with CompDescText[1] do
  begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
    AutoSize := False;
    WordWrap := True;
    Enabled := False;
    Caption := CustomMessage('ComponentsImgInfo');
  end;

  CompDescImg := TBitmapImage.Create(WizardForm);
  with CompDescImg do
  begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
    Stretch := True;
    Hide;
  end;

  CompDescPanel := TPanel.Create(WizardForm);
  with CompDescPanel do
  begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(192), ScaleY(125), ScaleX(225), ScaleY(80));
    BevelInner := bvLowered;
  end;

  CompDescText[2] := TLabel.Create(WizardForm);
  with CompDescText[2] do
  begin
    Parent := CompDescPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescPanel.Width - ScaleX(10), CompDescPanel.Height - ScaleY(10));
    AutoSize := False;
    WordWrap := True;
    Enabled := False;
    Caption := CustomMessage('ComponentsInfo');
  end;

  AddCompDescription(1, CustomMessage('CompDesc1'), 'CompDescImg1.bmp');
  AddCompDescription(2, CustomMessage('CompDesc2'), 'CompDescImg2.bmp');
end;