Innosetup中在安装界面左下角添加超链接

最新推荐文章于 2022-07-10 09:07:37 发布

转载最新推荐文章于 2022-07-10 09:07:37 发布 · 691 阅读

本文介绍如何在InnoSetup的安装界面左下角添加一个带下划线且可点击的超链接，通过使用特定的控件及绑定点击事件实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在程序的安装界面左下角加上超链接，如下图：

1. 新建一个标签，这里使用的控件是TNewStaticText ,完整的方法是

//该方法传入两个参数：
//1. ParentForm：将这个URLLabel添加到那个界面上，这里添加到整个安装WizardForm去
//2. CancelButton：使用WizardForm的CancelButton来辅助这个URLLabel作相对定位
procedure CreateURLLable(ParentForm: TSetupForm; CancelButton: TNewButton);
var
      URLLabel: TNewStaticText;
begin
     URLLabel := TNweStaticText.Create(ParentForm);//这个URLLabel实际即使一个文本标签，将它添加到WizardForm中去
     URLLabel.Caption := 'www.innosetup.com';//设定显示的文本
     URLLabel.Cursor := crHand;//鼠标移上去时显示为手形
     URLLabel.OnClick := @URLLabelOnClick;//绑定点击事件
     URLLabel.Parent := ParentForm;

     URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];//文件显示下划线      
     URLLabel.Font.Color := clBlue;
     URLLabel.Top := CancelButton.Top;//直接使用CancelButton的Top来定位
     URLLabel.Left := ScaleX(20);//与左边相距20个像素
end;

2. 为标签URLLabel绑定点击事件（这个方法的定义必须在CreateURLLabel()之前）

procedure URLLabelOnClick(Sender: TObject);
var
     ErrorCode: Integer;
begin
     ShellExecAsOriginalUser('open', 'http://www.innosetup.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

3. 在procedure InitializeWizard()方法中调用 CreateURLLabel()方法

//该方法是innosetup自带的方法，作用是初始化安装界面WizardForm
procedure InitializeWizard();
begin
       //.....其他代码
       CreateURLLabel(WizardForm, WizardForm.CancelButton);
end;