如何在Inno Setup中将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;

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