[Setup]
;右上角圖片背景顏色
WizardSmallImageBackColor=clBlue
;右邊圖片背景顏色
WizardImageBackColor=clBlue
;左邊圖片是否拉伸 - yes;no
WizardImageStretch=no
;左邊圖片
WizardImageFile=C:\Documents and Settings\Administrator\桌面\smqh\Left.bmp
;右上角圖片
WizardSmallImageFile=C:\Documents and Settings\Administrator\桌面\smqh\topsmall.bmp
[code]
var
  PageName, PageDescription: TLabel;
procedure InitializeWizard();
begin
   PageName := TLabel.Create(WizardForm.MainPanel);
   PageName.Parent := WizardForm.MainPanel;
   PageName.Top := WizardForm.PageNameLabel.Top;
   PageName.Left := WizardForm.PageNameLabel.Left;
   PageName.Width := WizardForm.PageNameLabel.Width;
   PageName.Height := WizardForm.PageNameLabel.Height;
   PageName.Font := WizardForm.PageNameLabel.Font;
   PageName.Transparent := true;
  //PageName.Caption :='測試';
   PageName.Font.Color:=clRed;
   PageDescription := TLabel.Create(WizardForm.MainPanel);
   PageDescription.Parent := WizardForm.MainPanel;
   PageDescription.Top := WizardForm.PageDescriptionLabel.Top;
   PageDescription.Left := WizardForm.PageDescriptionLabel.Left;
   PageDescription.Width := WizardForm.PageDescriptionLabel.Width;
   PageDescription.Height := WizardForm.PageDescriptionLabel.Height;
   PageDescription.Font := WizardForm.PageDescriptionLabel.Font;
   PageDescription.Transparent := true;
  //PageDescription.Caption :='測試';
   PageDescription.Font.Color:=clPurple;
    WizardForm.WizardSmallBitmapImage.Top := ScaleY(0);
    WizardForm.WizardSmallBitmapImage.Left := ScaleX(0);
    WizardForm.WizardSmallBitmapImage.Width := WizardForm.MainPanel.Width;
    WizardForm.WizardSmallBitmapImage.Height := WizardForm.MainPanel.Height;
    WizardForm.PageNameLabel.Visible := false;
   WizardForm.PageDescriptionLabel.Visible := false;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  PageName.Caption := WizardForm.PageNameLabel.Caption;
  PageDescription.Caption := WizardForm.PageDescriptionLabel.Caption;
end;