2

我有一个带有自定义向导页面的设置脚本,可以让用户做出选择。最好有一个帮助按钮并提供一个带有可安装文件的小型 CHM 文件,这样我就可以详细解释这些选项是什么。

任何人都知道是否有一种简单的方法可以做到这一点?

4

2 回答 2

4

有关如何在安装包中包含文件并在安装开始之前引用该文件的详细信息,请参阅此帖子。

为了向安装向导添加一个按钮,我在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;  
于 2011-05-16T21:42:29.190 回答
1

只需完成清单:

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;
于 2017-10-04T08:34:10.647 回答