Как пропустить пользовательскую страницу в зависимости от типа установки в Inno Setup - PullRequest
Новая
       15

Как пропустить пользовательскую страницу в зависимости от типа установки в Inno Setup

1 голос
/ 25 октября 2019

Я строю свою установку с использованием типов установки / настройки сервера и клиента. Мне нужно пропустить или скрыть пользовательскую страницу, если пользователь выбирает тип сервера. Тип сервера имеет только пользовательскую страницу для выбора экземпляра SQL и кнопку для запуска sqlcmd для установки БД, в то время как установка клиента копирует только некоторые файлы в программный каталог.

Это мой тестовый код с пользовательской страницей: 

[Types]
Name: "Server"; Description: "Server"
Name: "Client"; Description: "Client"

[Components]
Name: "Dictation"; Description: "Dictation"; Types: Client
Name: "DigitalSign"; Description: "Digital Sign"; Types: Client

[Tasks]
Name: "Voisis"; Description: "Voisis"; Components: Dictation
Name: "Recomed"; Description: "Recomed"; Components: Dictation

[Code]

var
   Page: TWizardPage;
   Panel: TPanel;
   Edit0,Edit1,Edit2,Edit3: TNewEdit;
   StaticText0, StaticText1,StaticText2,StaticText3: TNewStaticText;

procedure InitializeWizard;
begin
    { Create the pages }

    Page := CreateCustomPage (wpInfoBefore, 'Personal Information', 'Who are you?');

    Edit0 := TNewEdit.Create(Page);
    Edit0.Top := ScaleY(16);
    Edit0.Width := Page.SurfaceWidth div 3 - ScaleX(8);
    Edit0.Text := 'localhost\WISE';
    Edit0.Parent := Page.Surface;

    Edit1 := TNewEdit.Create(Page);
    Edit1.Top := ScaleY(64);
    Edit1.Width := Page.SurfaceWidth div 3 - ScaleX(8);
    Edit1.Text := 'sa';
    Edit1.Parent := Page.Surface;

    Edit2 := TNewEdit.Create(Page);
    Edit2.Top := ScaleY(112);
    Edit2.Width := Page.SurfaceWidth div 3 - ScaleX(8);
    Edit2.Text := 'Password';
    Edit2.Parent := Page.Surface;

    Edit3 := TNewEdit.Create(Page);
    Edit3.Top := ScaleY(160);
    Edit3.Width := Page.SurfaceWidth div 3 - ScaleX(8);
    Edit3.Text := 'TNewEdit';
    Edit3.Parent := Page.Surface;


    StaticText0 := TNewStaticText.Create(Page);
    Statictext0.Top := ScaleY(2);
    StaticText0.Caption := 'Istanza';
    StaticText0.AutoSize := True;
    StaticText0.Parent := Page.Surface;

    StaticText1 := TNewStaticText.Create(Page);
    Statictext1.Top := ScaleY(50);
    StaticText1.Caption := 'User';
    StaticText1.AutoSize := True;
    StaticText1.Parent := Page.Surface;


    StaticText2 := TNewStaticText.Create(Page);
    Statictext2.Top := ScaleY(98);
    StaticText2.Caption := 'Password';
    StaticText2.AutoSize := True;
    StaticText2.Parent := Page.Surface;


    StaticText3 := TNewStaticText.Create(Page);
    Statictext3.Top := ScaleY(146);
    StaticText3.Caption := 'bho';
    StaticText3.AutoSize := True;
    StaticText3.Parent := Page.Surface;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
    Result := False;

    if PageID = PageID then
        Result := not IsComponentSelected('Server');
end;

1 Ответ

1 голос
/ 25 октября 2019

В функции события ShouldSkipPage сравните PageID с TWizardPage.ID пользовательской страницы. И используйте WizardSetupType функцию поддержки для проверки выбранного типа установки. 

var
  Page: TWizardPage;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := False;

  if Page.ID = PageID then
    Result := (WizardSetupType(False) <> 'server');
end;

И, очевидно, ваша пользовательская страница должна показывать после Страница «Выбор компонентов» , не ранее: 

Page := CreateCustomPage(wpSelectComponents, ...);

В качестве альтернативы вы можете обрабатывать TWizardPage.OnShouldSkipPage пользовательской страницы.

...