[Uragan66]

Sotonisto, спасибо. Но не хочет работать . Установщик компилируется нормально, но ссылки не работают, то есть клик на лого ничего не дает... Хотя вот

скрипт

Код:

procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
  ShellExec('', 'http://www.forum.ru-board.com', '' , '', SW_SHOW, ewNoWait, ResCode)
end;

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

с такой же функцией и в нем все работает... Но в нем нет прозрачности