Inno Setup中的全屏背景图像

Question

如何在Inno Setup编译器中为我们的设置提供背景全屏图像。

如下图所示。

Answer 1

不要那样做。它违反了Windows设计准则。

无论如何，如果必须，使用WindowVisible=yes directive启用旧版全屏安装程序模式，然后通过类型为TMainForm的MainForm全局变量修改（现在可见）背景窗口。< / p>

[Setup]
WindowVisible=yes

[Files]
Source: "back.bmp"; Flags: dontcopy

[Code]

procedure InitializeWizard();
var
  BackgroundImage: TBitmapImage;
begin
  BackgroundImage := TBitmapImage.Create(MainForm);
  BackgroundImage.Parent := MainForm;
  BackgroundImage.SetBounds(0, 0, MainForm.ClientWidth, MainForm.ClientHeight);
  BackgroundImage.Stretch := True;
  ExtractTemporaryFile('back.bmp');
  BackgroundImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\back.bmp'));
end;

有关稍微不同的实现，请参阅ISXKB上的Background image during the installation。