[Dodakaedr]

Типа сплэша? »

помогите прикрутить кликабельное лого »

Попробуйте так:

Кликабельное лого

Код:

[Setup]
AppName=My program
VersionInfoVersion=5.0
AppVerName=My program
DefaultDirName={pf}\My program
DefaultGroupName=My program
OutputDir=.

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[code]
var
  Label1: TLabel;

procedure btnOnClick(Sender: TObject);
var
 rcode: integer;
begin
    ShellExec('open','http://forum.oszone.net/thread-278998-193.html','', '', SW_SHOW, ewNoWait, rCode);
end;

procedure btnOnClick2(Sender: TObject);
begin
    Label1.Font.Color := clred;
end;

procedure btnOnClick3(Sender: TObject);
begin
    Label1.Font.Color := clBlue;
end;

procedure InitializeWizard();
begin
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := WizardForm;
    Cursor := crHand;
    Caption := 'OSZONE.NET';
    Font.Color := clBlue;
    Font.Height := -16;
    Font.Name := 'Tahoma';
    Font.Style := [fsUnderline];
    ParentFont := False;
    Transparent := True;
    OnClick := @btnOnClick;
    OnMouseEnter := @btnOnClick2;
    OnMouseLeave := @btnOnClick3;
    Left := ScaleX(8);
    Top := ScaleY(327);
    Width := ScaleX(153);
    Height := ScaleY(19);
  end;
end;

Кликабельное лого через изображение

Код:

#define Bitmap "Logo.bmp"

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Files]
Source: {#Bitmap}; Flags: dontcopy solidbreak

[Code]
var
  Panel1: TPanel;
  BitmapImage1: TBitmapImage;
  
procedure Panel1Click(Sender: TObject);
var
 EC: integer;
begin
  ShellExec('open', 'http://forum.oszone.net/', '', '', SW_SHOWNORMAL, ewNoWait, EC);
end;

procedure InitializeWizard();
begin
  Panel1 := TPanel.Create(WizardForm);
  with Panel1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(16);
    Top := ScaleY(318);
    Width := ScaleX(185);
    Height := ScaleY(41);
  end;

  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := Panel1;
    Left := ScaleX(4);
    Top := ScaleY(4);
    Width := ScaleX(178);
    Height := ScaleY(34);
    Cursor := crHand;
    OnClick := @Panel1Click;
    ExtractTemporaryFile('{#Bitmap}');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#Bitmap}'));
  end;
end;

положите рядом с скриптом файлик Logo.bmp (178х34)