[lekssp]

Помогите плз!
Надо осуществить поиск файла с заполнением прогрессбара.
Пробовал вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

function GetFileCount(Dir: string):Int64; var   fs: TSearchRec;   files:Int64; begin   files:=0;   if FindFirst(Dir+'\*.*', faAnyFile - faVolumeID, fs) = 0     then     repeat       if fs.Attr=faDirectory then  Inc(files, GetFileCount(dir+'\'+fs.Name));       inc(files);     until       FindNext(fs) <> 0;   FindClose(fs);   result:=files; end;   function OnFind(s:string):Boolean; begin  ShowMessage(s); end;   function FullDirectoryFind(StartDir: string; FindName:string; b:Byte): Boolean; var   SR: TSearchRec;   I: Integer;   i1:Int64; begin   ShowMessage(StartDir+' '+inttostr(GetFileCount(StartDir)));   if b=1 then begin   Form1.ProgressBar1.Max:=GetFileCount(StartDir);   Form1.ProgressBar1.Position:=0;   end;   // ShowMessage('1');   //ShowMessage(IntToStr(Form1.ProgressBar1.max));   Result := False;   StartDir := IncludeTrailingBackslash(StartDir);   if not DirectoryExists(StartDir) then     Exit;     I := FindFirst(StartDir + '*', faAnyFile, SR);   try     while I = 0 do     begin       if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then       begin         if SR.Attr = faDirectory then  begin           if SR.Name=FindName then OnFind(AddStr(StartDir, SR.Name));           FullDirectoryFind(StartDir+sr.Name, FindName, 0);         end else   begin           if SR.Name=FindName then OnFind(AddStr(StartDir, SR.Name))         else           Result := True;       end;       I := FindNext(SR);       Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;     end;     end;   finally     SysUtils.FindClose(SR);   end;   if b=1 then   Form1.ProgressBar1.Position:=0; end;

, но прога виснет
Помогите пожалуйтса!

[M.A.D.M.A.N.]

Application.ProcessMessages воткни в цикле.

[lekssp]

в каком ?

[Страдалецъ]

после этой строчки:

Код:

1	Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;

[lekssp]

всё равно висит.
и он висит именно на определении кол-ва файлов в каталоге.
Может кто подскажет функцию получше. А если нет, то как её исправить ???