Показать ссылку с лицензионным соглашением в Inno Setup во время установки

Question

Я использую Inno Setup для своего приложения.Я хочу показать ссылку (лицензионное соглашение) в Inno Setup во время установки (кроме отдельного мастера лицензионного соглашения)Я хочу объединить эту ссылку с какой-то задачей.Когда пользователь нажимает эту ссылку, он переходит на определенный URL.

Answer 1

Я знаю, что уже довольно поздно ... Следующий скрипт создает ярлык ссылки License Agreement в левой нижней части формы мастера.Этот ярлык имеет синий подчеркнутый шрифт и курсор при наведении курсора, поэтому он выглядит и выглядит как обычная ссылка на веб-страницу.По его событию щелчка указанный URL открывается в веб-браузере по умолчанию.Этот ярлык затем отображается на всех страницах мастера, кроме страницы лицензии один:

[Code]
var
  LicenseLinkLabel: TLabel;

procedure LicenseLinkClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('', 'http://www.stackoverflow.com', '', '', SW_SHOW, ewNoWait, 
    ErrorCode);
end;

procedure InitializeWizard;
begin
  LicenseLinkLabel := TLabel.Create(WizardForm);
  LicenseLinkLabel.Parent := WizardForm;
  LicenseLinkLabel.Left := 8;
  LicenseLinkLabel.Top := WizardForm.ClientHeight - 
    LicenseLinkLabel.ClientHeight - 8;
  LicenseLinkLabel.Cursor := crHand;
  LicenseLinkLabel.Font.Color := clBlue;
  LicenseLinkLabel.Font.Style := [fsUnderline];
  LicenseLinkLabel.Caption := 'License Agreement';
  LicenseLinkLabel.OnClick := @LicenseLinkClick;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  LicenseLinkLabel.Visible := CurPageID <> wpLicense;
end;

И результат (нажмите, чтобы увеличить):

Answer 2

Создайте текст лицензии в формате RTF (с Wordpad для очень маленького размера файла) и введите гиперссылку в тексте в виде чистого текста, никаких дополнительных функций не требуется (например, 'http://stackoverflow.com'). InnoSetup отобразит этот URL и сделает его кликабельным.Имейте в виду, что ссылки электронной почты не работают должным образом.

Хотите попробовать? Сохраните весь этот текст Wordpad, сохраните как RTF и свяжите его с InnoSetup.

Голландский