--------------------------------------------------------------------------------

Модуль: SysUtils

Описание
Функция находит файл с набором атрибутов Attr в каталоге и по маске, определенных константой Path. Найденное имя файла записывается в переменную F. Если указанный файл найден, то функция возвращает 0, иначе возвращается код ошибки Windows. Параметр Attr - комбинация нескольких констант атрибутов файла или их значений. Константа Path представляет собой полный путь с маской файла (например, 'C:\MYDIR\*.ini' ). Повторный поиск файла производится с помощью функции FindNext. По окончанию поиска необходимо высвободить память, выделенную при вызове функции FindFirst, с помощью процедуры FindClose.

Значения констант атрибутов файла:

Константа
Значение
Описание

faReadOnly
$00000001
Только чтение

faHidden
$00000002
Скрытый файл

faSysFile
$00000004
Системный файл

faVolumeID
$00000008
Идентификатор тома

faDirectory
$00000010
Каталог

faArchive
$00000020
Архивный файл

faAnyFile
$0000003F
Произвольный файл

Пример
Данный пример выводит список всех файлов в каталоге '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;