inno-setup – 安装时在Inno Setup中显示许可协议链接
发布时间:2020-12-15 04:23:26 所属栏目:大数据 来源:网络整理
导读:我正在为我的应用程序使用Inno Setup.我想在安装时在Inno Setup中显示链接(许可协议)(单独的许可协议向导除外).我希望将此链接与某个任务相结合.当用户单击该链接时,它将导航到特定URL. 解决方法 我知道我已经很晚了……以下代码脚本在向导表单的左下角创建
我正在为我的应用程序使用Inno Setup.我想在安装时在Inno Setup中显示链接(许可协议)(单独的许可协议向导除外).我希望将此链接与某个任务相结合.当用户单击该链接时,它将导航到特定URL.
解决方法
我知道我已经很晚了……以下代码脚本在向导表单的左下角创建了许可协议链接标签.该标签有一个蓝色下划线字体和一个悬停的手形光标,因此它看起来和感觉就像一个常见的网页链接.在其单击事件上,将在默认Web浏览器中打开指定的URL.然后,除了许可证页面1之外,所有向导页面上都会显示此标签:
[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; 结果(点击放大): (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |