innosetup在使用DelTree时删除文件的进度怎么显示到进度条上去

您好，感谢您的提问。在 Inno Setup 中，如果您使用 DelTree 来删除文件夹，可以使用 `ssInstall` 状态来在进度条上显示删除进度。具体方法如下：

1. 在 `[Code]` 部分定义一个函数，用于计算需要删除的文件总大小：

function GetDeleteDirSize(const DirPath: string): Int64;
var
  FindRec: TFindRec;
begin
  Result := 0;
  if FindFirst(ExpandConstant(DirPath + '\*'), FindRec) then
  begin
    try
      repeat
        if (FindRec.Name <> '.') and (FindRec.Name <> '..') then
        begin
          if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY then
            Result := Result + GetDeleteDirSize(DirPath + '\' + FindRec.Name)
          else
            Result := Result + FindRec.Size;
        end;
      until not FindNext(FindRec);
    finally
      FindClose(FindRec);
    end;
  end;
end;

2. 在 `[Code]` 部分的 `CurUninstallStepChanged` 函数中调用该函数，并使用 `ssInstall` 状态来显示删除进度：

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  DeleteDirSize: Int64;
begin
  if CurUninstallStep = usUninstall then
  begin
    // 计算需要删除的文件总大小
    DeleteDirSize := GetDeleteDirSize('C:\TestFolder');

    // 设置最大进度
    WizardForm.ProgressGauge.Max := DeleteDirSize;

    // 删除文件夹
    DelTree('C:\TestFolder', True, True, True);

    // 显示删除进度
    WizardForm.ProgressGauge.Position := DeleteDirSize;
    WizardForm.ProgressGauge.State := npbsPaused;
    WizardForm.ProgressGauge.State := npbsNormal;
  end;
end;

这样设置后，`DelTree` 删除文件夹时，进度条上就会显示删除进度了。希望能对您有所帮助。