Поиск файлов в каталоге

[pupilMartyr]

Здравствуйте. Задача такая. В выбранном каталоге программа производит поиск исполняемых файлов формата Win32PE (*.exe) и динамических библиотек (*.dll), с учетом подкаталогов.
Вот код:

procedure TForm1.FindFiles(dir: string);
  var SRexe, SRdll: TSearchRec;
      findResExe, findResDll:Integer;
      dir_copy: string;
begin
    dir_copy:= dir;

    findResExe:= FindFirst(dir + '*.exe', faAnyFile, SRexe);
    findResDll:= FindFirst(dir + '*.dll', faAnyFile, SRdll);

    while (findResExe = 0) do
    begin
        if ((SRexe.Attr and faDirectory) = faDirectory) then
        begin
            if not((SRexe.Name = '.') or (SRexe.Name = '..')) then
                FindFiles(dir + SRexe.Name + '\');
            findResExe:= FindNext(SRexe);
            Continue;
        end
        else begin
            sgFiles.RowCount:= sgFiles.RowCount + 1;
            sgFiles.Cells[0,sgFiles.RowCount - 1]:= SRexe.Name;
            sgFiles.Cells[1,sgFiles.RowCount - 1]:= IntToStr(SRexe.Size);

            findResExe:= FindNext(SRexe);
        end;
    end;

    while (findResDll = 0) do
    begin
        if ((SRdll.Attr and faDirectory) = faDirectory) then
        begin
            if not((SRdll.Name = '.') or (SRdll.Name = '..')) then
                FindFiles(dir_copy + SRdll.Name + '\');
            findResDll:= FindNext(SRdll);
        end
        else begin
            sgFiles.RowCount:= sgFiles.RowCount + 1;
            sgFiles.Cells[0,sgFiles.RowCount - 1]:= SRdll.Name;
            sgFiles.Cells[1,sgFiles.RowCount - 1]:= IntToStr(SRdll.Size);

            findResDll:= FindNext(SRdll);
        end;
    end;
    FindClose(SRexe);
    FindClose(SRdll);
end;

Конечно, повторение кода для dll, но это сейчас не так важно. Загвоздка в том, что файлы нужно находить и в подкаталогах, чего программа не делает. Хотя должна, т.к. я поверяю

  if ((SRexe.Attr and faDirectory) = faDirectory) then

Подскажите, пожалуйста, как решить эту проблему.
P.S. И заодно, может, проблему с повторением кода.

[pupilMartyr]

что никто не поможет?
Беда, беда (

[veniside]

Вы, фактически, пытаетесь найти каталоги с расширением .exe или .dll
Создайте такой, и оно в него непременно зайдёт )

[pupilMartyr]

ооо, спасибо, что вы подсказали мне о том, какие файлы и с каким расширением я ищу!

Задача такая. В выбранном каталоге программа производит поиск исполняемых файлов формата Win32PE (*.exe) и динамических библиотек (*.dll), с учетом подкаталогов.

Для тестирования своей программы я создаю несколько папок с exe и dll. Благо у мну их предостаточно. Программа их находит, но если в папке сделать подкаталог, то уже нет.
По логике, она должна работать правильно, поэтому и сложно исправить.

[veniside]

Вы не поняли. Создайте папку (а не файл) с расширением .exe или .dll, и ваш код зайдёт в неё рекурсивно, как вы того и хотели.

Как это исправить, другой вопрос.

[pupilMartyr]

Да нет. Вроде все нормально.
Может это я чего-то не понимаю? Почему он должен обращаться к папке с расширением exe?
Если я встречаю папку, то к пути dir я добавляю имя этой папки, затем \, затем расширение файла.
Вот еще одна версия, но тоже безнадежно.

procedure TForm1.FindFilesExe(dir: string);
  var SRexe: TSearchRec;
      findResExe: integer;
begin
    findResExe:= FindFirst(dir + '*.exe', faAnyFile, SRexe);

    while (findResExe = 0) do
    begin
        if ((SRexe.Attr and faDirectory) = faDirectory) then
        begin
            if (SRexe.Name <> '.') and (SRexe.Name <> '..') then
                FindFilesExe(dir + SRexe.Name + '\');
            findResExe:= FindNext(SRexe);
        end
        else begin
            sgFiles.RowCount:= sgFiles.RowCount + 1;
            sgFiles.Cells[0,sgFiles.RowCount - 1]:= SRexe.Name;
            sgFiles.Cells[1,sgFiles.RowCount - 1]:= IntToStr(SRexe.Size);

            findResExe:= FindNext(SRexe);
        end;
    end;
    FindClose(SRexe);
end;

В интернете, на форумах, предлагают различные решения поиска файлов в каталогах и подкаталогах. Люди пишут, что работает. Я копирую этот код себе, но он у меня не работает.
Наверняка, я что-то не так делаю. Объясните, пожалуйста.

[Аватар]

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

[pupilMartyr]

Я так понимаю, вы предлагаете:

procedure TForm1.FindFilesExe(dir: string);
  var SRexe: TSearchRec;
      findResExe: integer;
begin
findResExe:= FindFirst(dir + '*.*', faAnyFile, SRexe);

    while (findResExe = 0) do
    begin
        if ((SRexe.Attr and faDirectory) = faDirectory) then
        begin
            if (SRexe.Name <> '.') and (SRexe.Name <> '..') then
                FindFilesExe(dir + SRexe.Name + '\');
            findResExe:= FindNext(SRexe);
        end
        else begin
        А ЗДЕСЬ ПРОВЕРЯТЬ, НУЖНОЕ РАСШИРЕНИЕ?
            sgFiles.RowCount:= sgFiles.RowCount + 1;
            sgFiles.Cells[0,sgFiles.RowCount - 1]:= SRexe.Name;
            sgFiles.Cells[1,sgFiles.RowCount - 1]:= IntToStr(SRexe.Size);

            findResExe:= FindNext(SRexe);
        end;
    end;
    FindClose(SRexe);
end;

Так?

[pupilMartyr]

И как тогда проверять то ли расширение?

[hiho]

http://www.programmersforum.ru/showthread.php?t=128762