[Dodakaedr]

и как сдлеать что при нажатии на кнопку открівалось не окно а картинка ? »

Такой пример не пойдет?

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

Код:

[Setup]
AppName=My Programm
AppVersion=1.1
DefaultDirName={pf}\My Programm
OutputDir=.

[Files]
DestName: "WizardForm.BitmapImage1.bmp"; Source: "compiler:WizModernSmallImage-IS.bmp"; Flags: dontcopy solidbreak

[Code]
const
  GCL_STYLE = -26;
  CS_NOCLOSE = $200;

var
  BitmapImage1: TBitmapImage;
  NewButton1, NewButton2: TButton;
  Form: TSetupForm;

function GetClassLong(Wnd: HWnd; Index: Integer): Longint; external 'GetClassLongA@user32.dll stdcall';
function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetClassLongA@user32.dll stdcall';

procedure ButtonOnClick(Sender: TObject);
begin
   Form.Close;
   WizardForm.Enabled:=true;
end;

procedure ButtonOnClick2(Sender: TObject);
begin
   Form.Show;
   WizardForm.Enabled:=false;
end;

procedure RedesignWizardForm;
begin
  Form:= CreateCustomForm;
  Form.ClientWidth := ScaleX(150);
  Form.ClientHeight := ScaleY(100);
  Form.Caption := 'Инфо';
  Form.Center;
  Form.FormStyle := fsStayOnTop;
  SetClassLong(Form.Handle, GCL_STYLE, GetClassLong(Form.Handle, GCL_STYLE) or CS_NOCLOSE);

  NewButton2 := TButton.Create(Form);
  NewButton2.Parent := Form;
  NewButton2.Width := ScaleX(55);
  NewButton2.Height := ScaleY(23);
  NewButton2.Left := Form.ClientWidth - ScaleY(57);
  NewButton2.Top := Form.ClientHeight - ScaleY(25);
  NewButton2.Caption := 'OK';
  NewButton2.OnClick := @ButtonOnClick;

  BitmapImage1 := TBitmapImage.Create(Form);
  with BitmapImage1 do
  begin
    Parent := Form;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(50);
    Height := ScaleY(50);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;

  NewButton1 := TButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(48);
    Top := ScaleY(328);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Инфо';
    OnClick := @ButtonOnClick2;
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;