delphi 遍历文件进度条

以下是 Delphi 中遍历文件并显示进度条的示例代码：

procedure TraverseFolder(const AFolder: string);
var
  SR: TSearchRec;
  IsFound: Boolean;
begin
  IsFound := FindFirst(AFolder + '\*.*', faAnyFile, SR) = 0;
  try
    while IsFound do
    begin
      if (SR.Attr and faDirectory) <> 0 then
      begin
        if (SR.Name <> '.') and (SR.Name <> '..') then
          TraverseFolder(AFolder + '\' + SR.Name);
      end
      else
      begin
        // 处理文件
      end;
      // 更新进度条
      ProgressBar1.Position := ProgressBar1.Position + 1;
      // 检查是否取消遍历
      if Application.Terminated then
        Exit;
      IsFound := FindNext(SR) = 0;
    end;
  finally
    FindClose(SR);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  RootFolder: string;
  TotalFiles: Integer;
begin
  RootFolder := 'C:\MyFolder';
  TotalFiles := CountFiles(RootFolder); // 获取文件总数
  ProgressBar1.Max := TotalFiles;

  TraverseFolder(RootFolder);
end;

其中，`TraverseFolder` 函数用于遍历文件夹并处理文件，`ProgressBar1` 是一个 `TProgressBar` 控件，用于显示进度条。在遍历文件夹的过程中，每处理一个文件，就将进度条的位置加 1，并检查是否取消遍历。在 `Button1Click` 事件中，先获取文件总数并将进度条的最大值设置为文件总数，然后调用 `TraverseFolder` 函数开始遍历文件夹。