inno-setup - 安装时在 Inno Setup 中显示许可协议(protocol)链接

Question

我正在为我的应用程序使用 Inno Setup。我想在安装时在 Inno Setup 中显示一个链接(许可协议(protocol))(单独的许可协议(protocol)向导除外)。我想将此链接与一些任务结合起来。当用户单击该链接时，它将导航到特定的 URL。

Answer 1

我知道我来晚了……下面的代码脚本创建了 License Agreement向导表单左下角的链接标签。该标签具有蓝色下划线字体和悬停时的手形光标，因此它看起来和感觉就像一个常见的网页链接。在其单击事件中，指定的 URL 会在默认 Web 浏览器中打开。然后，此标签在除许可证页面一之外的所有向导页面上可见:

[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;

结果(点击放大):