[Drongo]

Размеры формы указываются в Height, Width и можно ClientHeight, ClientWidth. Отличаются они тем, что одни параметры размера задаются без учёта бордюра, а вторые с учётом бордюра. Размеры родной формы мастера »

Понял. Я их тут объявил, всё получилось, но придётся в таком случае переделывать размеры для рисунков и перемещать объекты с формы в другое место, одним словом подгонять под новую форму. Это не критично, если надо будет сильно, сделаю, а пока и так пойдёт с таким размером.

Размер формы

Код:

...
procedure CurPageChanged(CurPageID: Integer);
var
  pfunc: LongWord;
  
begin
  WizardForm.ClientHeight:= 800;
  WizardForm.ClientWidth:= 750;
  WizardForm.Height:= 500;
  WizardForm.Width:= 700;

begin
  WelcomeLabel1.Caption := WizardForm.WelcomeLabel1.Caption;
  WelcomeLabel2.Caption := WizardForm.WelcomeLabel2.Caption;
  PageNameLabel.Caption := WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel.Caption := WizardForm.PageDescriptionLabel.Caption;
  FinishedHeadingLabel.Caption := WizardForm.FinishedHeadingLabel.Caption;
  FinishedLabel.Caption := WizardForm.FinishedLabel.Caption;
// здесь придётся вручную вводить требуемый текст
  RunLabel.Caption := 'Запустить программу';

  if CurPageID = InfoPage.ID then UpdateInfo();  // Обновление информации о системе

  if (CurPageID = wpInstalling) then
    begin
      pfunc := WrapTimerProc(@OnTimer, 4);
      TimerID := SetTimer(0, 0, 1000, pfunc);

      WizardForm.InnerNotebook.Hide;
      WizardForm.Bevel1.Hide;
      WizardForm.MainPanel.Hide;
      WizardForm.PageNameLabel.Hide;
      WizardForm.PageDescriptionLabel.Hide;

      WizardForm.ProgressGauge.Show;
      WizardForm.StatusLabel.Show;
      SplashImage.Show;
    end
  else
    begin
      WizardForm.ProgressGauge.Hide;
      WizardForm.StatusLabel.Hide;
      SplashImage.Hide;

    if (CurPageID > wpInstalling) and (CurPageID < wpFinished) then
    begin
      WizardForm.InnerNotebook.Show;
      WizardForm.Bevel1.Show;
      WizardForm.MainPanel.Show;
      WizardForm.PageNameLabel.Show;
      WizardForm.PageDescriptionLabel.Show;
    end;
   end;
  end;
end;
...

Минимальные параметры для проверки

Код:

...
const
  DISPLAY_DEVICE_PRIMARY_DEVICE = 4;
  oneMB = 1024*1024;
  NeedMHz = 1800; // Частота процессора
  NeedVideoRAM = 128; // Объём видеопамяти
  NeedSoundCard = 'Creative X-Fi'; // Звуковая карта
  NeedMB = 512; // ОЗУ
  NeedPageFile = 1024; // Файл подкачки
...