[saurn]

Aquila, я просто не совсем понял, что подразумевается под использовать несколько ключей установки. Имеется ввиду установка через ком.строку с различными параметрами?

[Aquila]

Имеется ввиду установка через ком.строку с различными параметрами? »

Да

[saurn]

Aquila, всё, что могу подсказать по этому вопросу: использовать файл ответов - свой для каждой конфигурации.

Код:

/LOADINF="filename"
Указывает инсталлятору загрузить параметры установки из указанного файла после проверки командной строки. Этот файл может быть подготовлен с помощью '/SAVEINF=' command. 

Не забудьте ставить кавычки при использовании имен, содержащих пробелы. 

/SAVEINF="filename"
Указывает инсталлятору сохранять параметры установки в указанный файл. 

Не забудьте ставить кавычки при использовании имен, содержащих пробелы.

Все параметры командной строки Inno

[Aquila]

saurn, Об этом я знаю Придётся использовать NSIS (там есть то что я хочу).

[saurn]

Aquila, насчет добавления ярлыков в различные дериктории: в секции [Tasks] можно задать опционально для всех ярлыков, а потом через ком. строку выбирать необходимые ярлыки

Код:

/TASKS="desktopicon,groupicon"

Тот же способ и для компонентов. Пожалуй это и всё.

[Crazy Noise]

saurn, Благодарю!
Скрипт рабочий, если добавить в него [Dirs].

читать дальше »

Код:

[Dirs]
Name: {userdocs}\GameEX

[code]
var
  SerialPage: TWizardPage;
  Block_1, Block_2, Block_3, Block_4: TNewEdit;
  sNumber: String;

procedure InitializeWizard();
begin
 SerialPage := CreateCustomPage(wpSelectTasks, 'Serial number', 'Please insert serial number');

  Block_1 := TNewEdit.Create(nil);
  with Block_1 do
  begin
    Parent := SerialPage.Surface;
    SetBounds(ScaleX(96), ScaleY(98), ScaleX(50), ScaleY(21));
    Text := '';
    MaxLength := 4;
  end;

  Block_2 := TNewEdit.Create(nil);
  with Block_2 do
  begin
    Parent := SerialPage.Surface;
    SetBounds(ScaleX(152), ScaleY(98), ScaleX(50), ScaleY(21));
    Text := '';
    MaxLength := 4;
  end;

  Block_3 := TNewEdit.Create(nil);
  with Block_3 do
  begin
    Parent := SerialPage.Surface;
    SetBounds(ScaleX(208), ScaleY(98), ScaleX(50), ScaleY(21));
    Text := '';
    MaxLength := 4;
  end;

  Block_4 := TNewEdit.Create(nil);
  with Block_4 do
  begin
    Parent := SerialPage.Surface;
    SetBounds(ScaleX(265), ScaleY(98), ScaleX(50), ScaleY(21));
    Text := '';
    MaxLength := 4;
  end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
  sNumber := ExpandConstant(Block_1.Text + '-' + Block_2.Text + '-' + Block_3.Text + '-' + Block_4.Text);
  case CurStep of
    ssPostInstall: SaveStringToFile(ExpandConstant('{userdocs}\GameEX\keysgame.ini'), sNumber, True);
  end;
end;

Но что делать если использовать второй вариант

читать дальше »

Код:

//или вместо шага CurStepChanged записывать серийник в файл при нажатии "Далее" на этой странице.
(*function NextButtonClick(CurPageID:integer): Boolean;
begin
  sNumber := ExpandConstant(Block_1.Text + '-' + Block_2.Text + '-' + Block_3.Text + '-' + Block_4.Text);
  case CurPageID of
    SerialPage.ID: SaveStringToFile(ExpandConstant('{userdocs}\GameEX\keysgame.ini'), sNumber, True);
  end;
  Result := True;
end;*)

где создание папки GameEX через [Dirs] не прокатит?

[saurn]

Crazy Noise, не подумал, что папки изначально не существует)

Код:

function NextButtonClick(CurPageID:integer): Boolean;
begin
  sNumber := ExpandConstant(Block_1.Text + '-' + Block_2.Text + '-' + Block_3.Text + '-' + Block_4.Text);
  case CurPageID of
    SerialPage.ID:
    begin
      CreateDir(ExpandConstant('{userdocs}\GameEX'));
      SaveStringToFile(ExpandConstant('{userdocs}\GameEX\keysgame.ini'), sNumber, True);
    end;
  end;
  Result := True;
end;

[Crazy Noise]

saurn, Благодарю.

не подумал, что папки изначально не существует) »

Да это я ничего про папку не упомянул, не думал что так получится.


Aquila, Попробую привести пример на основе bat+ini, т.е bat-ник подхватывает настройки указанные в файле ini

пример скрипта

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DefaultGroupName=My Application
OutputBaseFilename=setup
OutputDir=.

[Icons]
Name: "{group}\{cm:UninstallProgram,My Application}"; Filename: "{uninstallexe}"

[Components]
Name: a; Description: A; Types: full custom compact; Flags: checkablealone
Name: a\a; Description: A\A; Types: custom compact; Flags: dontinheritcheck
Name: a\b; Description: A\B; Types: custom compact; Flags: dontinheritcheck
Name: a\c; Description: A\C; Types: custom compact; Flags: dontinheritcheck

[Tasks]
Name: a; Description: A; Flags: checkablealone
Name: a\a; Description: A\A; Flags: dontinheritcheck
Name: a\b; Description: A\B; Flags: unchecked dontinheritcheck
Name: a\c; Description: A\C; Flags: unchecked dontinheritcheck

батник

Код:

setup.exe /LoadInf=".\unattended.ini"

файл unattended.ini

Код:

[Setup]
Components=a,a\b,a\c
Tasks=a,a\b,a\c

таким образом, можно ювелирно всё настроить.
Так же можно подсмотреть в ветке реестра
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My Application_is1
Inno Setup: Selected Components
Inno Setup: Selected Tasks
и т.д.

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

Код:

setup.exe /Components="a,a\b,a\c" /Tasks="a,a\b,a\c"

Ниже прикрутил архив.

[saurn]

Crazy Noise, еще можно реализовать проверку на присутствие файла с серийником, и если он есть, не создавать или пропускать страницу ввода(например при переустановке поверх).

[Crazy Noise]

saurn, И об этом я не подумал. Угадываешь мысли?
Пример можно? Не силён в таких мелочах.