[serg aka lain]

Как сделат ькартинку только на первой странице инсталятора но на весь екран ??? »

Если имеется в виду в первом окне, то

так

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[code]
var
  MyPanel: TPanel;

procedure InitializeWizard();
begin
  MyPanel := TPanel.Create(WizardForm);
  with MyPanel do
  begin
    Align := alClient;
    Parent := WizardForm;
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Align := alClient;
    Parent := MyPanel;
  end;

  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel1.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel1.WordWrap; 
    Left := WizardForm.WelcomeLabel1.Left; 
    Top := WizardForm.WelcomeLabel1.Top; 
    Width := WizardForm.WelcomeLabel1.Width; 
    Height := WizardForm.WelcomeLabel1.Height; 
    Caption := WizardForm.WelcomeLabel1.Caption; 
    Font.Size := WizardForm.WelcomeLabel1.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel1.Font.Style; 
    Font.Color := clWhite; 
    TransParent := True; 
    Parent := MyPanel;
  end; 
 
  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel2.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel2.WordWrap; 
    Left := WizardForm.WelcomeLabel2.Left; 
    Top := WizardForm.WelcomeLabel2.Top; 
    Width := WizardForm.WelcomeLabel2.Width; 
    Height := WizardForm.WelcomeLabel2.Height; 
    Caption := WizardForm.WelcomeLabel2.Caption; 
    Font.Size := WizardForm.WelcomeLabel2.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel2.Font.Style; 
    Font.Color := clWhite; 
    TransParent := True; 
    Parent := MyPanel;
  end;

  WizardForm.NextButton.BringToFront;
  WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  MyPanel.Hide;
  if CurPageID = wpWelcome then
    MyPanel.Show;
end;