Описание
Функция используется в цепочке FindFirst - FindNext - FindClose для повторного поиска файла.
Первый поиск осуществляется с помощью функции FindFirst. Функция FindNext возвращает следующий найденный файл, удовлетворяющий условиям поиска определенным при вызове функции FindFirst. В случае успешного выполнения, функция FindNext возвращает 0, а в случае возникновения ошибки - код ошибки Windows.
По окончанию поиска необходимо высвободить память с помощью функции FindClose.
Пример
Данный пример выводит список всех файлов в каталоге 'C:\WINDOWS\', имеющих атрибуты "Системный" и "Скрытый". var
F: TSearchRec; begin if FindFirst('C:\WINDOWS\*.txt', faHidden+ faSysFile, F)=0 then begin
Memo1.Lines.Add(F.Name); while FindNext(F) = 0 do Memo1.Lines.Add( F.Name); end;
FindClose(F); end;