Отображение информации при поиске файлов

[botan32]

Добрый день! нужна помощь. Есть процедура которая ищет файлы по маске. как в этой процедуре реализовать процесс поиска ProgressBar?

Вот процедура:

procedure FindFiles(StartFolder, Mask: String; ListView: TListView;
  ScanSubFolders: Boolean);
var
SearchRec: TSearchRec;
FindResult: Integer;
LV: TListItem;
begin
  ListView.Items.BeginUpdate;
  try
  StartFolder := IncludeTrailingBackslash(StartFolder);
  FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec);
    try
    while FindResult = 0 do
    with SearchRec do
      begin
      if (Attr and faDirectory) <> 0 then
        begin
        if ScanSubFolders and (Name <> '.') and (Name <> '..') then
          begin
          Inc(countfolders);
          FindFiles(StartFolder + Name, Mask, ListView, ScanSubFolders);
          end;
        end
        else
        begin
        if MatchesMask(Name, Mask) then
          begin
          Application.ProcessMessages;
          Inc(countfiles1);
          ListView.Items.Add.Caption := Name;
          end;
        end;
          form1.Edit3.Text:='Folders  '+inttostr(countfolders);
          form1.Edit4.Text:='Files  '+inttostr(countfiles1);
          form1.Edit5.Text:= 'Scan Dir  '+StartFolder;
      FindResult := FindNext(SearchRec);
      end;
    finally
    FindClose(SearchRec);
    end;
  finally
  ListView.Items.EndUpdate;
  end;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
//Вызов процедуры
FindFiles('C:\','*',ListView1, true);
end;

[Аватар]

Только фейковый прогрессбар или какую-нибудь анимацию

[Stilet]

Боюсь что никак, ибо заранее не известно сколько поиск пройдет файлов.
Максимум выводить в Лейбу число пройденного...
Или если прогрессить - просто через каждые 10-100 файлов сдвигать его свойство Max на очередные 10-100, но это гемор.

[botan32]

А можно ли тогда вывести оставшееся время до завершения поиска? Если да, то каким образом? Просто необходима хоть какая-то информация. А то поиск уходит в некуда, неизвестно сколько на него затрачено.

[Аватар]

оставшееся время до завершения поиска

Если бы оно было известно, то какие проблемы с прогрессбаром?

[FaTaL]

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

[come-on]

Заранее узнать размер папки со всеми файлами

для этого надо сделать тот же поиск.

[botan32]

Узнать заранее размер папки, это не вариант. А если поиск будет осуществляться не в папке а на диске.... Программа просто будет висеть. Странно, но в других же прогах это как то реализовано.

[Аватар]

Странно, но в других же прогах это как то реализовано

В каких других? И картинку как реализовано

Программа просто будет висеть.

Для этого есть Application.ProcessMessages или потоки

[northener]

Сообщение от botan32

в других же прогах это как то реализовано.

В Тотал Командере, например, в строку статуса выводится имя каталога, в котором в данный момент ведется поиск.