我需要使用 NSIS 或 InnoSetup 制作 Windows 安装程序。客户希望在安装程序对话框/向导页面中显示图像,并且该图像需要可单击,例如单击时打开浏览器窗口。这可能吗?如果是,是否也可以使用动画 GIF?
问问题
737 次
3 回答
5
要使欢迎页面的左侧图像可点击,您可以使用以下命令:
[Code]
procedure OnBannerClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('', 'http://www.stackoverflow.com', '', '', SW_SHOW, ewNoWait,
ErrorCode);
end;
procedure InitializeWizard;
begin
WizardForm.WizardBitmapImage.Cursor := crHand;
WizardForm.WizardBitmapImage.OnClick := @OnBannerClick;
end;
于 2012-11-29T11:43:00.360 回答
3
....对于 NSIS 也是如此:
!include MUI2.nsh
!define MUI_PAGE_CUSTOMFUNCTION_SHOW MakeClickableWizardImage
!insertmacro MUI_PAGE_WELCOME
!insertmacro MUI_PAGE_INSTFILES
!define MUI_PAGE_CUSTOMFUNCTION_SHOW MakeClickableWizardImage
!insertmacro MUI_PAGE_FINISH
!insertmacro MUI_LANGUAGE English
Function OnWizardClick
ExecShell "" "http://example.com"
FunctionEnd
Function MakeClickableWizardImage
StrCpy $0 $mui.WelcomePage.Image
${If} $mui.FinishPage.Image <> 0
StrCpy $0 $mui.FinishPage.Image
${EndIf}
${NSD_OnClick} $0 OnWizardClick
FunctionEnd
于 2012-11-29T17:08:31.583 回答
2
于 2012-12-03T06:43:45.223 回答