Поиск первого файла с заданным расширением

[Mixasik]

procedure FindFiles(Dir: string; Ext : string; Var SFile : string);
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);
  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
        Continue;
      if (SearchRec.Attr and faDirectory) <> 0 then
        FindFiles(Dir + SearchRec.Name, Ext, SFile)
      else
        if ExtractFileExt(Dir + SearchRec.Name) = Ext then
          begin SFile := Dir + SearchRec.Name; exit end;//Если расширение совпало выход из процедуры
    until
      FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

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

[Daramant]

Вот так:

function FindFiles(Dir: string; Ext : string; Var SFile : string): Boolean;
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);
  Result := False;

  if FindFirst(Dir + '*', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
        Continue;
      if (SearchRec.Attr and faDirectory) <> 0 then
        Result := FindFiles(Dir + SearchRec.Name, Ext, SFile)
      else
        if ExtractFileExt(Dir + LowerCase(SearchRec.Name)) = Ext then begin
          SFile := Dir + SearchRec.Name;
          Result := True;
          Exit;
        end;
    until (FindNext(SearchRec) <> 0) and (Result = False);
  FindClose(SearchRec);
end;

У тебя после exit продолжался поиск в других поддиректориях.
Что бы выполнить сквозной выход из рекурсивной функции я
в условии выхода из цикла добавил еще один параметр Result.

Здесь, возможно, лучше добавить функцию LowerCase чтобы
сравнивать строки в нижнем регистре.
if ExtractFileExt(Dir + LowerCase(SearchRec.Name)) = Ext then begin
Ext я думаю и так в нижнет регистре.