[Lancer2404]

Еще вопрос вот при инсталле внизу я вставил картинку кликабельную как сделать что бы при клике выводилось не сообщение а переход на сайт

[code]
[Setup]
AppName=TestButton
AppVerName=TestButton
DefaultDirName=C:\TestButton

[Files]
Source: Button.bmp; Flags: dontcopy

Код:

procedure TestButtonOnClick(Sender: TObject);
begin
  MsgBox('Òåñò!', mbInformation, MB_OK)
end;

procedure InitializeWizard();
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
  
begin
  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do begin
    Left:=20
    Top:=325
    Width:=132
    Height:=27
    Cursor:=crHand
    OnClick:=@TestButtonOnClick
    Parent:=WizardForm
  end
  BtnImage:=TBitmapImage.Create(WizardForm)
  with BtnImage do begin
    AutoSize:=True
    Enabled:=False
    ExtractTemporaryFile('Button.bmp')
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
    Parent:=BtnPanel
  end
end;