2016-09-25 88 views

回答

1

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


无论如何,如果你要使用WindowVisible=yes directive使传统的全屏模式,安装程序,然后通过TMainFormMainForm全局变量修改(现在可见的)背景窗口。

[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; 

enter image description here


对于一个稍微不同的实现,请参阅Background image during the installation在ISXKB。

+0

我的回答有帮助吗? –