这是一个标准 RTF 文档,用于Inno Setup 部分LicenseFile中的属性:[Setup]
是否可以在此页面添加一个打印按钮来触发打印许可协议?
我看到了一个类似的问题和答案(在 Inno Setup 中的许可证页面中添加“打印协议”按钮),我刚刚尝试实现。但这就是我得到的:
该按钮位于错误的位置,因此此代码似乎与 Inno Setup 6 不完全兼容?
所以,在我的脚本中我有:
[Setup]
LicenseFile=..\..\..\EULA\EULA.rtf
[Code]
var PrintButton: TButton;
procedure PrintButtonClick(Sender: TObject);
var ResultCode :integer;
begin
log('test');
ExtractTemporaryFile('EULA.rtf');
//if not ShellExec('Print', ExpandConstant('{tmp}\EULA.rtf'),
// '', '', SW_SHOW, ewNoWait, ResultCode) then
if not ShellExec('', ExpandConstant('{tmp}\EULA.rtf'),
'', '', SW_SHOW, ewNoWait, ResultCode) then
log('test');
end;
procedure InitializeWizard();
begin
PrintButton := TButton.Create(WizardForm);
PrintButton.Caption := '&Print...';
PrintButton.Left := WizardForm.InfoAfterPage.Left + 96;
PrintButton.Top := WizardForm.InfoAfterPage.Height + 88;
PrintButton.OnClick := …Run Code Online (Sandbox Code Playgroud) Inno Setup WizardImageFile(和WizardSmallImageFile)的位图看起来很糟糕,因为当 Windows 7 启用了大系统字体时,向导会比平时大,但图像的缩放比例非常错误。
有解决办法吗?
如果我在这样的地方添加自己的图片,就没有类似的问题:
BitmapImage1.AutoSize := True;
BitmapImage1.Align := alClient;
BitmapImage1.Left := 0;
BitmapImage1.Top := 0;
BitmapImage1.stretch := True;
BitmapImage1.Parent := Splash;
Run Code Online (Sandbox Code Playgroud) 如何自定义Inno Setup的安装页面?
这里准确地显示了将要进行的更改。
前

后

现在,状态文本“正在安装 Collectica”将是静态的而不是动态的。
此外,还为进度条添加了额外的时间。
我会很感激你的回答。谢谢