如何在Inno设置中将WizardForm设置为全屏

Question

我想用WizardForm.Width制作新的安装程序是用户显示器宽度的宽度，WizardForm.Height是用户显示器高度的高度。

所以，我已经写了新的代码，但有一个像黑色区域的错误。

这是我的代码，我已经编译：

[Code] 
function GetSystemMetrics(nIndex:Integer):Integer; 
external 'GetSystemMetrics@user32.dll stdcall'; 

procedure InitializeWizard(); 
var 
    width,height: Integer; 
begin 
    MainForm.BorderStyle:= bsNone; 
    width:= GetSystemMetrics(0); 
    height:= GetSystemMetrics(1); 
    MainForm.Width:= width; 
    MainForm.Height:= height; 
    width:= MainForm.ClientWidth; 
    height:= MainForm.ClientHeight; 
    MainForm.Left := 0; 
    MainForm.Top := 0; 

    WizardForm.Position:= poScreenCenter; 
    WizardForm.BorderStyle:= bsNone; 
    WizardForm.Width:= MainForm.Width; 
    WizardForm.Height:= MainForm.Height; 
    WizardForm.ClientWidth:= MainForm.ClientWidth; 
    WizardForm.ClientHeight:= MainForm.ClientHeight; 
    MainForm.Visible:= True; 
end; 

Answer 1

我不明白为什么你MainForm互动。只需调整WizardForm。

[Code] 

function GetSystemMetrics(nIndex: Integer): Integer; 
    external 'GetSystemMetrics@user32.dll stdcall'; 

procedure InitializeWizard(); 
begin 
    WizardForm.Position := poScreenCenter; 
    WizardForm.BorderStyle := bsNone; 
    WizardForm.Width := GetSystemMetrics(0); 
    WizardForm.Height := GetSystemMetrics(1); 
end; 

虽然向导的设计无论如何都不能在整个屏幕上展开。