[Dodakaedr]

Покажите мне пример пожалуйста »

Пользуюсь расширенной версией, как будет на обычной работать не знаю, но для примера сойдет

Скрытый текст

Код:

[setup]
appname=app
appvername=app 1.0
DefaultDirName={sd}\app

[Code]
var
  Bevel2: TBevel;

procedure RedesignWizardForm;
begin
  { Bevel2 }
  Bevel2 := TBevel.Create(WizardForm);
  with Bevel2 do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(0);
    Top := ScaleY(136);
    Width := ScaleX(417);
    Height := ScaleY(42);
    Shape := bsFrame;
  end;

  with WizardForm.DirBrowseButton do
  begin
    Top := ScaleY(146);
    Width := ScaleX(67);
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(8);
    Top := ScaleY(148);
    Width := ScaleX(324);
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

Только странно, что в прежних инсталлах окно есть, а эту команду я врятли использовал. »

Это такое обновление в последней версии, по умолчанию страница приветствия отключена