Как я могу показать окно «Пожалуйста, подождите» при проверке предварительных требований в моем установщике?

Question

Я делаю несколько проверок в функции InitializeSetup в моем скрипте. Это займет около 10 секунд, в течение которых ничего не отображается, кроме кнопки окна на панели задач (нажатие на нее ничего не дает). Я хотел бы показать простое окно «Пожалуйста, подождите». Как я могу это сделать?

Answer 1

Вот пример сценария, который показывает, как вы можете создать собственный диалог.

В основном создайте пользовательскую форму и поместите в нее пользовательский элемент управления. Вы можете использовать это в качестве отправной точки, чтобы диалоговое окно отображалось по вашему желанию.

[Setup]
AppName='Test Date Script'
AppVerName='Test Date Script'
DefaultDirName={pf}\test

[Code]

function InitializeSetup() : boolean;
var
  DlgWait : TSetupForm;
  lblWait : TLabel;
  I : Integer;
begin
  dlgWait :=  CreateCustomForm;
  dlgWait.FormStyle := bsDialog;
  dlgWait.Position := poMainFormCenter;
  lblWait := TLabel.Create(dlgWait);
  lblWait.Parent := dlgWait;
  lblWait.Caption := 'Please Wait';
  lblWait.Visible := True;
  dlgWait.Show;
  dlgWait.Refresh; // Process the paint message

  for I := 0 to 10 do
  begin
     Sleep(1000); // Simulate Functions taking 10 sec
     dlgWait.Refresh;
  end;

  DlgWait.Free;
end;