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

[Kotyarko_O 1,906]

 

 

1) Последнюю актуальную (стабильную) версию модификации XVM

http://www.modxvm.com/%d1%81%d0%ba%d0%b0%d1%87%d0%b0%d1%82%d1%8c-xvm/

 

 

 

2) Последнюю актуальную (ночную) версию модификации XVM

http://nightly.modxvm.com/

[Jonario 25]

http://www.modxvm.com/%d1%81%d0%ba%d0%b0%d1%87%d0%b0%d1%82%d1%8c-xvm/

http://nightly.modxvm.com/

 

Я же не просил дать ссылки на страницы где их скачать можно (я это и так прекрасно знаю).

Мне нужны ссылки на собранные архивы с модом (какие раньше были в установщике от команды XVM).

 

Спрошу лучше у товарища @Mixaill

[sergbodr 10]

Народ подскажите если не трудно почему очистка кеша не работает?  компилирует без ошибок все вроде

end; 

Всем рассказал, что читы в сборке имеются!

Edited September 4, 2016 by sergbodr

[Lom 48]

Всем рассказал, что читы в сборке имеются!

ты о чем ваще?

[MS_RAMIS 0]

подскажите код, чтобы в конце установки можно было при желании перейти на сайт активации XVMа и на сайт "автора пака"

[Lom 48]

подскажите код, чтобы в конце установки можно было при желании перейти на сайт активации XVMа и на сайт "автора пака"

 

 

[Run]
Filename: http://chit2222 и т.д .ru; Flags: shellexec

правда этот вариант без желания )) автоматом в конце установки на указанный сайт кидает))

Edited September 5, 2016 by ЛОМ

[BeJIuKuu_TaHKoBbIu_BouH 4]

del

Edited October 19, 2016 by gad_575__2

[sergbodr 10]

ты о чем ваще?

А когда мы на "ты" перешли? Просто не стоит выкладывать спойлер, в котором запрещенные моды указаны и привлекать к себе внимание со стороны WG!!!

[Lom 48]

А когда мы на "ты" перешли? Просто не стоит выкладывать спойлер, в котором запрещенные моды указаны и привлекать к себе внимание со стороны WG!!!

это уже не твои проблемы товарищ !!!  ты свою работу  (  " я всем рассказал уже "  )  сделал так что продолжай в том же духе! и удачи тебе по жизни. и надеюсь если у тебя есть дети ( хотя мало в это верится ) что они не узнают какой у них папка "молодец"

 

Попробуйте этот вариант:

Код

[Run]
Filename: "http://www.modxvm.com/"; Description: "Перейти на сайт XVM`а"; Flags: postinstall shellexec
Filename: "http://..."; Description: "Перейти на сайт автора модпака"; Flags: postinstall shellexec 

красава!!! всегда всё коротко, по делу и всё работает!!!  реальный МУЖИК!!! 

Edited September 5, 2016 by ЛОМ

[sergbodr 10]

это уже не твои проблемы товарищ !!!  ты свою работу  (  " я всем рассказал уже "  )  сделал так что продолжай в том же духе! и удачи тебе по жизни. и надеюсь если у тебя есть дети ( хотя мало в это верится ) что они не узнают какой у них папка "молодец"

Вы это про что, вообще? Жаль, что у меня не служил, вежливости и субординации научил! И меня учить не надо, я просто реально хотел указать на то, в спойлере, за что банят, но если вам всё-равно, то мне тем более!

[Lom 48]

Всем рассказал, что читы в сборке имеются!

вот написал же что ты всем рассказал что в сборке читы имеются?!   бляха муха тока догнал в каком смысле это написано)))  ты в конце до восклицательного знака еще  ?  вот этот знак забыл))) вот тогда бы я сразу понял смысл написанного! ладно мужик извини! я подумал что это  ты там кому то что то рассказал)))

Edited September 5, 2016 by ЛОМ

[Yupi 505]

Вы это про что, вообще? Жаль, что у меня не служил, вежливости и субординации научил!

Это было публичное признание в предвзятости и дедовщине на службе? )

[MS_RAMIS 0]

 

Попробуйте этот вариант:

Код

[Run]
Filename: "http://www.modxvm.com/"; Description: "Перейти на сайт XVM`а"; Flags: postinstall shellexec
Filename: "http://..."; Description: "Перейти на сайт автора модпака"; Flags: postinstall shellexec 

 

спасибо работает! только увы фон портит ...

 

а можно сделать так чтобы это сообщение выходило в отдельном окне? 

[BeJIuKuu_TaHKoBbIu_BouH 4]

del

Edited October 19, 2016 by gad_575__2

[MS_RAMIS 0]

 

Тогда попробуйте этот вариант:

Код

[Tasks]
Name: "gotositexvm"; Description: "Перейти на сайт XVM`а"; GroupDescription: "Дополнительные задачи"
Name: "gotositeauthor"; Description: "Перейти на сайт автора модпака"; GroupDescription: "Дополнительные задачи"

[Run]
Filename: "http://www.modxvm.com/"; Flags: shellexec; Tasks: gotositexvm
Filename: "http://..."; Flags: shellexec; Tasks: gotositeautor

 

ошибку выдает ;(  скрин прикрепил .....

 

UPD: все нашел ошибку ! ... спасибо

 

gad_575__2 , Большое Спасибо тебе! 

 

сори, я наверное не правильно объяснил !

можно сделать чтобы это сообщение выходило в ОТДЕЛЬНОМ маленьком окне или в голове возник 2 вариант - странице распаковки файлов / модов

 

скрины примеров выложил 

Edited September 6, 2016 by MS_RAMIS

[BeJIuKuu_TaHKoBbIu_BouH 4]

del

Edited October 19, 2016 by gad_575__2

[MS_RAMIS 0]

 

если подумать, то, думаю, можно это сделать, но самый лучший пример:

 

 

а можно его на страницу "распаковки файлов" поставить?

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

[Ekspoint 2,122]

а можно его на страницу "распаковки файлов" поставить?

можно

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
  NewCheckBox1: TNewCheckBox;

procedure NewCheckBox1Click(Sender: TObject); forward;

procedure RedesignWizardForm;
begin
  { NewCheckBox1 }
  NewCheckBox1 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox1 do
  begin
    Parent := WizardForm.InstallingPage;
    Left := ScaleX(32);
    Top := ScaleY(88);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'NewCheckBox1';
    OnClick := @NewCheckBox1Click;
  end;

  NewCheckBox1.TabOrder := 3;

{ ReservationBegin }
  // Вы можете добавить ваш код здесь.

{ ReservationEnd }
end;
// Не изменять эту секцию. Она создана автоматически.
{ RedesignWizardFormEnd } // Не удалять эту строку!

procedure NewCheckBox1Click(Sender: TObject);
var
  ErrorCode: Integer;
begin
ShellExec('open', 'http://aces.gg/', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

[MS_RAMIS 0]

можно

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
  NewCheckBox1: TNewCheckBox;

procedure NewCheckBox1Click(Sender: TObject); forward;

procedure RedesignWizardForm;
begin
  { NewCheckBox1 }
  NewCheckBox1 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox1 do
  begin
    Parent := WizardForm.InstallingPage;
    Left := ScaleX(32);
    Top := ScaleY(88);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Caption := 'NewCheckBox1';
    OnClick := @NewCheckBox1Click;
  end;

  NewCheckBox1.TabOrder := 3;

{ ReservationBegin }
  // Вы можете добавить ваш код здесь.

{ ReservationEnd }
end;
// Не изменять эту секцию. Она создана автоматически.
{ RedesignWizardFormEnd } // Не удалять эту строку!

procedure NewCheckBox1Click(Sender: TObject);
var
  ErrorCode: Integer;
begin
ShellExec('open', 'http://aces.gg/', '', '', SW_SHOW, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

 

 

блин я так и не понял что и как сделать (((  как результат у меня просто происходит ошибка.

 

- может кто подскажет как сделать этот код

[Tasks]
Name: "gotositexvm"; Description: "Перейти на сайт XVM`а"; GroupDescription: "Дополнительные задачи"
Name: "gotositeauthor"; Description: "Перейти на сайт автора модпака"; GroupDescription: "Дополнительные задачи"
[Run]
Filename: "http://www.modxvm.com/"; Flags: shellexec; Tasks: gotositexvm
Filename: "http://..."; Flags: shellexec; Tasks: gotositeautor

в отдельном, всплывающем окне. как на скрине в посте http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=351950

просто меня выходит, что в центре портиться фон.

Edited September 8, 2016 by MS_RAMIS

[AtotIK 580]

@MS_RAMIS, так не получится, если картинка на всю финишную страницу. Можно сделать так, маленький лайфхак. Сделаешь по аналогии. Нет времени полностью править код.

 

 

 

[CustomMessages]
ClearModsLabel=Clear "res_mods\{#ModVersion}" folder

[Code]
var
  ClearModsDir: TCheckBox;

function CreateLabel(aParent: TWinControl; aLeft, aTop, aWidth, aHeight: Integer; aCaption: String; aAutoSize: Boolean): TLabel;
begin
  Result:=TLabel.Create(aParent);
  Result.AutoSize:=aAutosize;
  Result.Parent:=aParent;
  Result.Transparent:=True;
  Result.SetBounds(aLeft, aTop, aWidth, aHeight);
  Result.Caption:=aCaption;
end;

procedure LabelSetFont(aLabel: TLabel; FontSize: Integer; FontName: String; FontColor: TColor; FontStyle: TFontStyles);
begin
  aLabel.Font.Size:=FontSize;
  aLabel.Font.Color:=FontColor;
  aLabel.Font.Name:=FontName;
  aLabel.Font.Style:=FontStyle;
end;

procedure ClearModsDirOnClick(Sender: TObject);
begin
  ClearModsDir.Checked:=Not(ClearModsDir.Checked);
end;

procedure CreateCheckBox();
begin
  ClearModsDir:=TCheckBox.Create(WizardForm);
  with ClearModsDir do
  begin
    Parent:=WizardForm.FinishedPage;
    SetBounds(165, 337, 13, 13);
    Checked:=False;
  end;

  ClearModsLabel:=CreateLabel(WizardForm.FinishedPage, ScaleX(185), ScaleY(336), ScaleX(0), ScaleY(0), ExpandConstant('{cm:ClearModsLabel}'), True);
  LabelSetFont(ClearModsLabel, 8, 'Tahoma', $FFFFFF, [fsBold]);
  ClearModsLabel.Alignment:=taLeftJustify;
  ClearModsLabel.OnClick:=@ClearModsDirOnClick;
end;

procedure ClearModsDirCheck();
var
  ErrorCode: Integer;
begin
  If ClearModsDir.Checked then
begin
  ShellExec('open', 'http://goo.gl/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep=ssInstall then
begin
  ClearModsDirCheck();
end;
end;

procedure InitializeWizard;
begin
  CreateCheckBox();
end;

Только не помню на Handle нужно вешать на этих страницах или так можно. Сам разберёшься.

 

З.Ы. Ну а если нужно сделать отдельным окном, то нужно перехватывать нажатие на кнопку "Далее" на финишной странице и плясать дальше (создавать форму и наполнять её). Должно сработать.

Edited September 8, 2016 by AtotIK