在InnoSetup向导页面添加帮助按钮
|
我有一个带有自定义向导页面的安装脚本，可以从用户那里进行选择。最好有一个帮助按钮，并提供一个带有可安装程序的CHM小文件，以便我对选择的内容进行详细说明。
有人知道是否有简单的方法吗？
没有找到相关结果
已邀请:
2 个回复
攫怂绵十
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;