没有冻结的inno设置UI

Question

请在开始安装过程之前找到下面调用的函数。

我希望在开始安装过程之前有创建系统还原点的功能。

现在我的功能完美无缺，但 UI会冻结。

我希望显示字幕进度，UI应该是重新使用的，但在阅读了大量文章后，我找不到任何有用的内容。

function PrepareToInstall(var NeedsRestart: Boolean): String;
var
  WasVisible: Boolean;
begin
    // show the PreparingLabel
    WizardForm.PreparingLabel.Visible := True;

    WizardForm.ProgressGauge.Style := npbstMarquee;

    // set a label caption
    WizardForm.PreparingLabel.Text := 'Creating system Restore Point...';

    CreateSystemRestorePoint();

     WizardForm.ProgressGauge.Style := npbstNormal;

end;

请帮助我，你的回答可以帮到我很多。

非常感谢。