Поиск файлов, ищет только если выбрать диск

[HellMercenariess]

Ищет файлы только если выбрать целый раздел, при выборе папки не ищет:

 procedure TSearcher.FindFile(Dir:String);
var
 i:integer;
 SR:TSearchRec;
 FindRes,ProdCount:Integer;
 Dir1,Dir2:string;
   fileExt:string;
begin
 ProdCount:=0;
 FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR);
 while FindRes=0 do
  begin
   if ((SR.Attr and faDirectory)=faDirectory) and
   ((SR.Name='.')or(SR.Name='..')) then
     begin
      FindRes:=FindNext(SR);
      Continue;
     end;
 
   if ((SR.Attr and faDirectory)=faDirectory) then
    begin 
     FindFile(Dir+SR.Name+'\');
     FindRes:=FindNext(SR);
   
     Continue; 
    end;
     inc(ProdCount);
     Inc(AlleMedia);
                 { Dir+ }
    FileExt:=ExtractFileExt(SR.name);
        if IsValideMedia(fileext)then       
      Rpl.Items.Add(SR.Name);   
      end;    
   if Application.Terminated then Break;
   Application.ProcessMessages;
   FindRes:=FindNext(SR);
  end;
  
 FindClose(SR);
end;

procedure TSearcher.Button1Click(Sender: TObject);
var
  TitleName : string;
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner := Searcher.Handle;
  BrowseInfo.pszDisplayName := @DisplayName;
  TitleName := 'Please specify a directory';
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then
  begin
  SHGetPathFromIDList(lpItemID, TempPath);
   FindFile(TempPath);
   Caption:=TempPath;
    GlobalFreePtr(lpItemID);
  end;

end;

в чем же беда ?

[spamer]

Если версия Delphi относительно новая (начиная с 2010), то можно посмотреть на вот такие возможности: 1 и 2

[eoln]

При первом входе в процедуру поиска нет символа \ на конце, поэтому либо в начале процедуры надо проверять

if Dir[Length(Dir)]<>'\' then Dir := Dir + '\';

либо в процедуре клика добавить этот слеш

Можно так не усложнять вызов диалога выбора каталогов

uses FileCtrl;
...
if SelectDirectory('Выберите папку...','',s) then FindFile(s);

Забыл сказать, что в

FileExt:=ExtractFileExt(SR.name);
        if IsValideMedia(fileext)then       
      Rpl.Items.Add(SR.Name);   
      end;

end лишний

[phomm]

eoln, разрешите Вас поправить:

if Dir[Length(Dir)]<>'\' then Dir := Dir + '\';

лучше так

IncludeTrailingPathDelimiter(Dir);

[eoln]

phomm, согласен - так лучше и кроссплатформнее

[HellMercenariess]

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

При первом входе в процедуру поиска нет символа \ на конце, поэтому либо в начале процедуры надо проверять

if Dir[Length(Dir)]<>'\' then Dir := Dir + '\';

либо в процедуре клика добавить этот слеш

Спасибо, родина вас незабудет.
Тоже про недостающий слеш думал но к TempPath : array[0..MAX_PATH] of char; его добавить неудалось, а в процедуре поиска там можно все запартачить если не там дописать.

[Stilet]

Функа IncludeTrailingBackslash
не?