[Serega]

Не подскажите как сделать окно инсталлятора поверх всех остальных? »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
procedure btnClick(Sender: TObject);
begin
  case WizardForm.FormStyle of
    fsNormal:
      begin
        WizardForm.FormStyle := fsStayOnTop;
        TButton(Sender).Caption := 'Отменить стиль StayOnTop';
      end;
    fsStayOnTop:
      begin
        WizardForm.FormStyle := fsNormal;
        TButton(Sender).Caption := 'Задать стиль StayOnTop';
      end;
  end;
end;

procedure InitializeWizard();
begin
  with TButton.Create(WizardForm) do
    begin
      Parent := WizardForm;
      SetBounds(ScaleX(20), WizardForm.NextButton.Top, ScaleX(200), WizardForm.NextButton.Height);
      Caption := 'Задать стиль StayOnTop';
      OnClick := @btnClick;
    end;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  // это необходимо, а то при ножатии на кнопку, мы не увидим сообщения
  if WizardForm.FormStyle = fsStayOnTop then
    WizardForm.FormStyle := fsNormal;
end;