我有一个带有自定义向导页面的设置脚本,可以让用户做出选择。最好有一个帮助按钮并提供一个带有可安装文件的小型 CHM 文件,这样我就可以详细解释这些选项是什么。
任何人都知道是否有一种简单的方法可以做到这一点?
我有一个带有自定义向导页面的设置脚本,可以让用户做出选择。最好有一个帮助按钮并提供一个带有可安装文件的小型 CHM 文件,这样我就可以详细解释这些选项是什么。
任何人都知道是否有一种简单的方法可以做到这一点?
有关如何在安装包中包含文件并在安装开始之前引用该文件的详细信息,请参阅此帖子。
为了向安装向导添加一个按钮,我在InitializeWizard
事件处理程序中包含了以下代码。
procedure CreateHelpButton (ParentForm : TSetupForm ;
X : integer ;
Y : integer ;
W : integer ;
H : integer) ;
var
HelpButton : TNewButton ;
begin
HelpButton := TNewButton.Create (ParentForm) ;
HelpButton.Left := X ;
HelpButton.Top := Y ;
HelpButton.Width := W ;
HelpButton.Height := H ;
HelpButton.Caption := '&Help' ;
HelpButton.OnClick := @HelpButtonOnClick ;
HelpButton.Parent := ParentForm ;
end;
procedure InitializeWizard () ;
begin
CreateHelpButton (
WizardForm, ScaleX (20), WizardForm.CancelButton.Top,
WizardForm.CancelButton.Width, WizardForm.CancelButton.Height) ;
end;
只需完成清单:
procedure HelpButtonOnClick(Sender: TObject);
var
ResultCode: Integer;
begin
ExtractTemporaryFile('installer.chm');
if (FileExists(ExpandConstant('{tmp}\installer.chm'))) then
begin
ShellExec('', ExpandConstant('{tmp}\installer.chm'), '', ExpandConstant('{tmp}'), SW_SHOW, ewNoWait, ResultCode);
end;
end;