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

[Kaster62rus]

Без разницы где будешь компилить - всё равно на 8 и 8.1 будут глюки. Советую присмотреться к VCL Styles for Inno Setup

 

Благодарю! Спас от нервного срыва... Всё работает.  

 

Единственный замут что в скрипте указать надо версию Inno Setup (Ansi или Unicode). Строка:

 

procedure LoadVCLStyle(VClStyleFile: String); external 'LoadVCLStyleW@files:VclStylesInno.dll stdcall';      // Unicode

либо

procedure LoadVCLStyle(VClStyleFile: String); external 'LoadVCLStyleA@files:VclStylesInno.dll stdcall';       // Ansi

 

Благо есть альтернатива!    

 

#define AW = (Defined UNICODE) ? "W" : "A"

 

procedure LoadVCLStyle(VClStyleFile: String); external 'LoadVCLStyle{#AW}@files:VclStylesinno.dll stdcall';

 

           

[voin_123]

Вроде доделал. Объясняю как работает:

Через #include подключается файл, в котором описаны функции работы с файлами и папками. В частности тут это - MoveDir. Нужна версия Inno Setup с установленным препроцессором.

Страница создаётся после начальной. Выбираете действие и спокойно идете дальше по установке. Как только инсталлятор переходит на процесс установки (страница ssInstall) запускается чекер, который смотрит какой пункт был выбран и исходя из этого запускает нужную функцию на исполнение. В первом варианте удаляются папки 0.8.11 и xvm, потом создаётся пустая папка 0.8.11. Во втором варианте папки 0.8.11 и xvm переносятся в res_mods\backup. После создаётся пустая папка 0.8.11. Третий вариант создаётся как "заглушка", ничего не происходит при его выборе.

Если не нужны надписи вверху страницы (там где картинка), то оставляйте пустые кавычки в строке:

BackupPage:=CreateCustomPage(wpWelcome, '', '');

Тогда нужно будет ещё скрыть белый фон, на котором эти надписи отображаются. В InitializeWizard() добавьте:

WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;

Поле этого страница будет выглядить примерно вот так:

В общем спрашивайте, если что-то не понятно. Вроде всё доступно написал.

 

Куда закидывать эти 2 файла в архиве или куда вставить?:(

[konan007]

только на юникоде делай

Я догадался :) На Анси не пошло, на юникоде все работает!!!!

Еще раз Спасибо.

[Ekspoint]

Куда закидывать эти 2 файла в архиве или куда вставить?:(

думай

[voin_123]

думай

Ну а как  создать строку какая будет создавать 2 галочки удалить старые моды или оставить? или просто одна удалить или оставить?

[-zav-]

Умные люди будьте добры подскажите
Вот в справке есть пример и он работает

[Setup]
Uninstallable=not IsTaskSelected('portablemode')

[Tasks]
Name: portablemode; Описание:  "Portable Mode"

Но как вместо  [Tasks]  сделать через  TNewCheckBox  ? 

var
  UninstCheckBox: TCheckBox;

begin
  UninstCheckBox:=TNewCheckBox.Create(WizardForm);
  UninstCheckBox.Parent:=WizardForm.SelectComponentsPage;
  UninstCheckBox.Top:=ScaleY(52);
  UninstCheckBox.Left := ScaleX(10);
  UninstCheckBox.Width:=650;
  UninstCheckBox.Caption:='Создать деинсталлятор'
  UninstCheckBox.Checked:=False;
end;

[Ekspoint]

Умные люди будьте добры подскажите

Вот в справке есть пример и он работает

[Setup]
Uninstallable=not IsTaskSelected('portablemode')

[Tasks]
Name: portablemode; Описание:  "Portable Mode"

Но как вместо  [Tasks]  сделать через  TNewCheckBox  ? 

var
  UninstCheckBox: TCheckBox;

begin
  UninstCheckBox:=TNewCheckBox.Create(WizardForm);
  UninstCheckBox.Parent:=WizardForm.SelectComponentsPage;
  UninstCheckBox.Top:=ScaleY(52);
  UninstCheckBox.Left := ScaleX(10);
  UninstCheckBox.Width:=650;
  UninstCheckBox.Caption:='Создать деинсталлятор'
  UninstCheckBox.Checked:=False;
end;

а это для чего? если не секрет 

[Kotyarko_O]

@-zav-,

[Setup]
Uninstallable=UninstallAbleCheck

[Code]
Var
 UninstCheckBox: TNewCheckBox;

Procedure InitializeWizard();
begin
 UninstCheckBox:=TNewCheckBox.Create(WizardForm);
 UninstCheckBox.Parent:=WizardForm.SelectComponentsPage;
 UninstCheckBox.Top:=ScaleY(52);
 UninstCheckBox.Left := ScaleX(10);
 UninstCheckBox.Width:=650;
 UninstCheckBox.Caption:='Создать деинсталлятор'
 UninstCheckBox.Checked:=False;
end;

Function UninstallAbleCheck(): Boolean;
begin
 Result := UninstCheckBox.Checked;
end;

Edited February 15, 2015 by Kotyarko_O

[-zav-]

а это для чего? если не секрет 

Дать возможность пользователю выбирать будет создаваться деинсталлятор или нет

 

 

,

Спасибо работает

[Ekspoint]

Дать возможность пользователю выбирать будет создаваться деинсталлятор или нет

 

ясно

[konan007]

Извиняюсь за еще одну просьбу 

А код распаковки 7zip или Zip c прогрессбаром не подкините? (если не жалко)

Заранее огромное спасибо..........

[Kotyarko_O]

 

 

А код распаковки 7zip или Zip c прогрессбаром не подкините?

В примерах IsDone есть.

[Ekspoint]

Можно ли написать несколько парентов в одну строку?

[ZLoy]

Не подскажите как убрать это сообщение ( интерполятор автоматом чистит содержимое res_mods)

[Ekspoint]

Не подскажите как убрать это сообщение ( интерполятор автоматом чистит содержимое res_mods)

2015-02-17 02-57-24 Установленные компоненты.png

компоненту поставь 

Flags: disablenouninstallwarning;

Edited February 17, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫

[Kotyarko_O]

Можно ли написать несколько парентов в одну строку?

Нет. Но если включить логику, можно придумать несколько решений, в зависимости от нужд.

[Ekspoint]

Нет. Но если включить логику, можно придумать несколько решений, в зависимости от нужд.

нужно прописать на 6 стр кнопку

[Kotyarko_O]

интерполятор

Не угадали.

 

нужно прописать на 6 стр кнопку

Как круто на середине предл обр слов чтобы никто ничего не понял.

"странице" или "страницах"?

Edited February 17, 2015 by Kotyarko_O

[Ekspoint]

Не угадали.

 

Как круто на середине предл обр слов чтобы никто ничего не понял.

"странице" или "страницах"?

страницах

[Kotyarko_O]

страницах

Скрываешь объект, а потом через кейс в CurPageChanged показываешь его там, где нужно.

Edited February 17, 2015 by Kotyarko_O