[Cranz86]

Итог, это код где создаётся новое окно в котором ставиться доп. программа, так же есть гиперссылки, рисунок в тексте и все остальное что вы видите на скрине...

Код:

Source: Toolbar\***.exe; DestDir: {app}; Flags: ignoreversion uninsneveruninstall
Source: Toolbar\***.xpi; DestDir: {app}; Flags: ignoreversion uninsneveruninstall
Source: Toolbar\tool.bmp; Flags: dontcopy

[Co&de]
var
tbFileExtID : TArrayOfInteger;
FileExtStr : String;
FileExtPage : TWizardPage;
ModePage : TWizardPage;
ToolbarPage : TWizardPage;
CheckListBox : TNewCheckListBox;
RadioClassic : TRadioButton;
RadioWizard : TRadioButton;
ToolbarCheck : TCheckBox;

procedure ShowLicenseAgreement(Sender: TObject);
var
ErrorCode: Integer;
begin
if not ShellExec('open', 'http://***.ourtoolbar.com/EULA',
'', '', SW_SHOW, ewNoWait, ErrorCode) then
begin
// ignore errors..
end;
end;

procedure ShowPrivacyAgreement(Sender: TObject);
var
ErrorCode: Integer;
begin
if not ShellExec('open', 'http://***.ourtoolbar.com/privacy',
'', '', SW_SHOW, ewNoWait, ErrorCode) then
begin
// ignore errors..
end;
end;

procedure CreateTheWizardPages;
var
StaticText7: TNewStaticText;
StaticText8: TNewStaticText;
StaticText9: TNewStaticText;
StaticText10: TNewStaticText;
StaticText11: TNewStaticText;
StaticText12: TNewStaticText;
StaticText13: TNewStaticText;
StaticText13a: TNewStaticText;
StaticText14: TNewStaticText;
StaticText15: TNewStaticText;
ToolbarImage: TBitmapImage;
i : Integer;

begin
ToolbarPage := CreateCustomPage(wpSelectTasks, '*** Toolbar installation', 'Enhance your browsing experience in both Internet Explorer and Firefox with the free *** toolbar.');

StaticText7 := TNewStaticText.Create(ToolbarPage);
StaticText7.Top := 0;
StaticText7.Left := ScaleX(0);
StaticText7.Caption := 'Thank you for choosing to install $PROJECT_NAME.';
StaticText7.Parent := ToolbarPage.Surface;
StaticText8 := TNewStaticText.Create(ToolbarPage);
StaticText8.Top := StaticText7.Top + StaticText7.Height + ScaleY(2);
StaticText8.Left := ScaleX(0);
StaticText8.Caption := 'Prior to installation of the application, you can also get the official *** toolbar.';
StaticText8.Parent := ToolbarPage.Surface;
StaticText9 := TNewStaticText.Create(ToolbarPage);
StaticText9.Top := StaticText8.Top + StaticText8.Height + ScaleY(2);
StaticText9.Left := ScaleX(0);
StaticText9.Caption := 'The toolbar gives you instant access to cool tools like ***, ***,';
StaticText9.Parent := ToolbarPage.Surface;
StaticText10 := TNewStaticText.Create(ToolbarPage);
StaticText10.Top := StaticText9.Top + StaticText9.Height + ScaleY(2);
StaticText10.Left := ScaleX(0);
StaticText10.Caption := 'TOP games and more.';
StaticText10.Parent := ToolbarPage.Surface;

ToolbarImage := TBitmapImage.Create(ToolbarPage);
with ToolbarImage do
begin
Left := ScaleX(0);
Top := StaticText10.Top + StaticText10.Height + ScaleY(14);
Width := ScaleX(432);
Height := ScaleY(41);
Parent := ToolbarPage.Surface;
ExtractTemporaryFile('tool.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\tool.bmp'));
end;

ToolbarCheck := TCheckBox.Create(ToolbarPage);
with ToolbarCHeck do
begin
ToolbarCheck.Top := ToolbarImage.Top + ToolbarImage.Height + ScaleY(16);
ToolbarCheck.Left := ScaleX(12);
ToolbarCheck.Caption := 'Install the *** Toolbar (recommended)';
ToolbarCheck.Parent := ToolbarPage.Surface;
ToolbarCheck.Width := 380;
ToolbarCheck.State := cbChecked;
end;

{StaticText11 := TNewStaticText.Create(ToolbarPage);
StaticText11.Top := ToolbarCheck.Top + ToolbarCheck.Height + ScaleY(2);
StaticText11.Left := ScaleX(28);
StaticText11.Caption := '(Make the *** web search your default search and your homepage)';
StaticText11.Parent := ToolbarPage.Surface;}

StaticText12 := TNewStaticText.Create(ToolbarPage);
StaticText12.Top := ScaleY(190);
StaticText12.Left := ScaleX(0);
StaticText12.Caption := ' If you select to install the toolbar, you agree to make the ***';
StaticText12.Parent := ToolbarPage.Surface;

StaticText13 := TNewStaticText.Create(ToolbarPage);
StaticText13.Top := ScaleY(220);
StaticText13.Left := ScaleX(0);
StaticText13.Width := ScaleX(56);
StaticText13.Height := ScaleY(13);
StaticText13.Caption := ' License Agreement';
StaticText13.Parent := ToolbarPage.Surface;
StaticText13.Font.Color := clBlue;
StaticText13.OnClick := @ShowLicenseAgreement;
StaticText13.Cursor := crHand;

StaticText13a := TNewStaticText.Create(ToolbarPage);
StaticText13a.Top := ScaleY(220);
StaticText13a.Left := ScaleX(120);
StaticText13a.Caption := 'Toolbar Privacy Policy';
StaticText13a.Parent := ToolbarPage.Surface;
StaticText13a.Font.Color := clBlue;
StaticText13a.OnClick := @ShowPrivacyAgreement;
StaticText13a.Cursor := crHand;

StaticText14 := TNewStaticText.Create(ToolbarPage);
StaticText14.Top := ScaleY(205);
StaticText14.Left := ScaleX(0);
StaticText14.Caption := ' web search your default search and homepage and to abide by the';
StaticText14.Parent := ToolbarPage.Surface;

StaticText15 := TNewStaticText.Create(ToolbarPage);
StaticText15.Top := ScaleY(220);
StaticText15.Left := ScaleX(99);
StaticText15.Caption := 'and';
StaticText15.Parent := ToolbarPage.Surface;

end;




procedure InitializeWizard();
begin
{ Custom wizard pages }
CreateTheWizardPages;
end;

procedure CurPageChanged(CurPageID: Integer);
var
ErrorCode: Integer;
FirefoxPath: String;
begin
if CurPageId = wpFinished then
begin
if ToolbarCheck.Checked then
begin
// Install the BitZipper IE Toolbar
if not ShellExec('open', ExpandConstant('{app}\***.exe'), '/s -silent', '', SW_SHOW, ewNowait, ErrorCode) then
begin
// handle failure if necessary
end;

//
// Basic check to see if .xpi is associated with a program. If it is,
// Firefox is most likely installed.
//
if RegKeyExists(HKEY_CLASSES_ROOT, '.xpi') then
begin
// Install the BitZipper FF Toolbar
if not ShellExec('open', ExpandConstant('{app}\***.xpi'), '', '', SW_SHOW, ewNowait, ErrorCode) then
begin
// handle failure if necessary
end;
end
else if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\firefox.exe', '', FirefoxPath) then
begin
Exec(FirefoxPath, '"' + ExpandConstant('{app}\***.xpi') + '"', '', SW_SHOW, ewNowait, ErrorCode);
end


end;

end;
end;


function InitializeUninstall(): Boolean;
begin
Result := true;
end;

ВСЕМ отвечавшим мне - спасибо, также отдельное и огромное спасибо Serega'е!!! Помогли многое понять и во всем разобраться. В целях конспирации названия изменил на "***". Может этот код кому то и поможет