Поиск файлов по маске

[kholoshchak]

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

[Stilet]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, shellapi;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var cnt:integer;
  Form1: TForm1;

implementation

{$R *.dfm}
Procedure FindRecursive(Const path: String; Const mask: String);
Var
 fullpath: String;
  Function Recurse( Var path: String; Const mask: String ): Boolean;
    Var
      SRec: TSearchRec;
      retval: Integer;
      oldlen: Integer;
    Begin
      Recurse := True;
      oldlen := Length(path);
      retval := FindFirst(path+mask, faAnyFile, SRec);
      While retval = 0 Do Begin
        Application.ProcessMessages;
        If (SRec.Attr and (faDirectory or faVolumeID)) = 0 Then
         with Form1.ListView1.Items.Add do
         begin
         caption:=SRec.Name;
         subitems.Add(path+srec.name);
         
         end;
        retval := FindNext(SRec);
      End;
      FindClose(SRec);
      If not Result Then Exit;
      retval := FindFirst( path+'*.*', faDirectory, SRec);
      While retval = 0 Do Begin
        If (SRec.Attr and faDirectory) <> 0 Then
          If (SRec.Name <> '.') and (SRec.Name <> '..') Then Begin inc(cnt);
            path := path + SRec.Name + '\';
            If not Recurse( path, mask ) Then Begin
              Result := False;
              Break;
            End; 
            Delete( path, oldlen+1, 255 );
          End;
        retval := FindNext( SRec );
      End;
      FindClose( SRec );
    End; // Recurse
Begin

 If path = '' Then GetDir(0, fullpath)
              Else fullpath := path;

 If fullpath[Length(fullpath)] <> '\' Then fullpath := fullpath + '\';

 If mask = '' Then  Recurse(fullpath, '*.*')
              Else  Recurse(fullpath, mask);





 End;

procedure TForm1.Button1Click(Sender: TObject);
begin
//FindRecursive('F:\','*.*');
FindRecursive(Edit1.Text,edit2.Text);
ShowMessage('Найдено: '+IntToStr(cnt));
end;

end.

[kholoshchak]

А почему при сканировании различный каталогов программа выдает одинаковый результат? Переменную "cnt" я обнуляю, в ней мусора не должно быть. При различных вариантах поиска результат одинаковый. В чем может быть проблема?

[Stilet]

Ну этого не скажу. Отладь пошаговкой.

[kholoshchak]

Хорошо. Буду разбираться дальше. А за помощь с диалоговым окном спасибо. Оказалось намного проще чем я думал.

[kholoshchak]

А еще хотелось бы узнать, как в этом коде можно организовать индикатор процесса progressbar?

[Stilet]

У-у-у... Скорее никак )
Ты же не знаешь количество файлов изначально.

[Serge_Bliznykov]

А еще хотелось бы узнать, как в этом коде можно организовать индикатор процесса progressbar?

никак!
либо банально - "песочные часы", либо, как что-нибудь вращающееся, бегающее в цикле.
Оценить (даже примерно) сколько будет файлов во вложенных папках - невозможно.