Inno Setup - 卸载时进度条不显示

Question

我正在使用Inno Setup创建自己的安装程序。当用户卸载应用程序时，我想要删除一些文件夹。因此，我使用CurUninstallStepChanged事件来删除文件夹，并使用npbstMarquee样式显示"进度条"（基于Inno Setup: How to handle progress bar on [UninstallDelete] section?）。

以下是代码：

procedure DeleteFolder();
var
  FindRec: TFindRec;
  fullPath: string;
  tmpMsg: string;
  StatusText: string;
  deletePath: string;
begin
  { find all and delete }
  UninstallProgressForm.ProgressBar.Style := npbstMarquee;       
  StatusText := UninstallProgressForm.StatusLabel.Caption;
  UninstallProgressForm.StatusLabel.WordWrap := True;
  UninstallProgressForm.StatusLabel.AutoSize := True;
  fullPath := 'C:\ProgramData\TestPath';
  if FindFirst(ExpandConstant(fullPath + '\*'), FindRec) then 
  try
    repeat
      if (FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and 
         (FindRec.Name <> '.') and (FindRec.Name <> '..') then begin
            deletePath := AddBackslash(fullPath) + FindRec.Name;
            tmpMsg := 'Deleting...' + #13#10 + deletePath;
            UninstallProgressForm.StatusLabel.Caption := tmpMsg;
            DelTree(deletePath, True, True, True);
        end;
    until
      not FindNext(FindRec);
  finally
    UninstallProgressForm.StatusLabel.Caption := StatusText;
    FindClose(FindRec);
  end;
  UninstallProgressForm.ProgressBar.Style := npbstNormal;
end;

{ Uninstall event }
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
   case CurUninstallStep of
    usUninstall:
     begin
       DeleteFolder();
    end;
  end;
end;

如果我逐行调试，我可以看到进度条正在运行。但是当我使用 unins000.exe 时，只有 Caption 可以显示，进度条没有显示。
我该如何修复它？

- Luan Pham

Answer 1

你需要抽取消息队列以显示/动画进度条。
Inno Setup:如何修改长时间运行的脚本，使其不会冻结GUI？
特别地，你可以使用来自以下位置的AppProcessMessage函数：
通过监听端口在LAN上发现My SQL服务器（Inno Setup）

尽管使用 DelTree，但调用 AppProcessMessage 的时间间隔太长，无法平滑地动画化进度条。您需要显式地实现递归删除以允许频繁地推送队列。

- Martin Prikryl