[Nightwishh]

А можно ли вызвать страницу WizardForm.SelectTasksPage, когда в секции [Tasks] пусто?

[sergey3695]

Nightwishh,
var
CompPage: TWizardPage;

procedure InitializeWizard; -> CompPage := CreateCustomPage(wpSelectDir,'','');

procedure CurPageChanged(CurPageID: Integer); -> if CurPageID = CompPage.Id then

Если страниц нехватает.
Или оставить какую-то фигню в [Tasks] и скрыть TasksList. (то что выше правильнее и лучше)

[AlexM22204]

Здравствуйте!
Возникла необходимость перепаковать один Inno Setup инсталлятор под себя, вроде всё получилось кроме не знаю как организовать(прописать в скрипте) подхват своих настроек из settings.reg, если таковой имеется в папке с инсталлятором. Если такое где-то было, просьба не ругать а ткнуть носом Заранее спасибо!!!

делаю так не подхватывается

[Run]
Filename: "{win}\regedit.exe"; Parameters: "-s {src}\Settings.reg"; WorkingDir: "{src}"; StatusMsg: "Внесение настроек в реестр...";

[Johny777]

AlexM22204, Да было уже. Давно. Тут пример через код а не как у тебя через секцию [Run], но разберёшься!
http://forum.oszone.net/post-2010676-1173.html

[R.i.m.s.k.y.]

AlexM22204, WorkingDir: "{win}"

[Dark_Delphin]

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

[Gnom_aka_Lexander]

Dark_Delphin, вот так:

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

Код:

var
  BtnSet: TNewButton;
  ParametresPage: TWizardPage;
  SetFlag : Boolean; // опорный флаг скрытия ParametresPage

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if PageID = ParametresPage.ID then Result := SetFlag; // встроенная функция сокрытия страниц, открытие ParametresPage привязываем тут к SetFlag
end;

procedure BtnSetClick(Sender: TObject);
begin
  SetFlag := False; // при нажатии на кнопку меняем значение на обратное, чтоб страница ParametresPage была показана
  WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;

procedure InitializeWizard();
begin
  ParametresPage := CreateCustomPage(wpWelcome, 'Параметры', 'Выберите дополнительные параметры установки'); //страница параметров

  BtnSet := TNewButton.Create(WizardForm);
  with BtnSet do
  begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(40), ScaleY(264), ScaleX(75), ScaleY(25));
    Caption := 'Параметры';
    OnClick := @BtnSetClick;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  SetFlag := True; // ParametresPage всегда скрыта
end;

[Dark_Delphin]

Gnom_aka_Lexander, использую вот скрипт из паблика, сделал вроде всё правильно, но кнопки не вижу.
http://rghost.ru/47933115

[Gnom_aka_Lexander]

Dark_Delphin, дык. во первых смотрим:

Код:

  BtnSet := TNewButton.Create(WizardForm);
  with BtnSet do
  begin
    Parent := WizardForm.WelcomePage;// у нас OuterNotebook.Hide;, значит кнопки мы не увидим, поэтому начнем с этого:  Parent := WizardForm;
    SetBounds(ScaleX(460), ScaleY(200), ScaleX(175), ScaleY(25));// тут я думаю все понятно?
    Caption := 'Параметры';
    OnClick := @BtnSetClick;
  end;

далее.
поскольку делаем Parent := WizardForm;, то кнопка нужна нам на определенной странице. это значит, в CurPageChanged в самом начале добавляем BtnSet.Hide;
SetFlag := True; // ParametresPage всегда скрыта - тоже лучше в начало вынести.
на нужной странице скорей всего wpWelcome, добавляем BtnSet.Show;
???????
PROFIT!!!

[El Sanchez]

делаю так не подхватывается [Run] Filename: "{win}\regedit.exe"; Parameters: "-s {src}\Settings.reg"; WorkingDir: "{src}"; StatusMsg: "Внесение настроек в реестр..."; »

AlexM22204, вероятно {src} раскрывается в путь с пробелами, получается неправильная комстрока для regedit. Нужно так:

Код:

[Run]
Filename: {win}\regedit.exe; Parameters: "-s ""{src}\Settings.reg"""; StatusMsg: "Внесение настроек в реестр..."

WorkingDir: "{win}" »

R.i.m.s.k.y., это из другой оперы. Эта директива отвечает за задание процессу текущей директории, т.е. комстроку можно формировать относительно этой директории:

Код:

[Run]
Filename: {win}\regedit.exe; Parameters: -s Settings.reg; WorkingDir: {src}; StatusMsg: "Внесение настроек в реестр..."