Inno setup 如何在Inno设置中创建一个按钮或文本，以便在单击时打开网页

如何在Inno安装程序中创建按钮或文本，以便在单击时打开网页

---

要打开网页，请使用：

procedure-OpenBrowser（Url:string）；
变量
错误代码：整数；
开始
ShellExec（'open'，Url'，''，SW_SHOWNORMAL，ewNoWait，ErrorCode）；
结束；

另见

---

要将其与按钮链接，请使用：

procedure按钮点击（发送方：TObject）；
开始
OpenBrowser（'https://www.example.com/');
结束；
过程初始化Wizard（）；
变量
按钮：t按钮；
开始
按钮：=TButton.Create（WizardForm）；
Button.Parent:=WizardForm；
按钮左：=ScaleX（16）；
Button.Top:=WizardForm.NextButton.Top；
按钮宽度：=WizardForm.NextButton.Width；
按钮高度：=WizardForm.NextButton.Height；
按钮。标题：=“链接”；
Button.OnClick:=@ButtonClick；
结束；

---

要将其与标签链接，请使用：

procedure LinkLabelClick（发送方：TObject）；
开始
OpenBrowser（'https://www.example.com/');
结束；
过程初始化Wizard（）；
变量
链接标签：TLabel；
开始
LinkLabel:=TLabel.Create（WizardForm）；
LinkLabel.Parent:=WizardForm；
LinkLabel.Left:=ScaleX（16）；
LinkLabel.Top：=
WizardForm.NextButton.Top+（WizardForm.NextButton.Height分区2）-
（LinkLabel.Height div 2）；
LinkLabel.Caption:=“Link”；
LinkLabel.ParentFont:=True；
LinkLabel.Font.Style:=LinkLabel.Font.Style+[fsUnderline]；
LinkLabel.Font.Color:=clBlue；
LinkLabel.Cursor:=crHand；
LinkLabel.OnClick:=@LinkLabelClick；
结束；