Функция FindFirst( const Path: string; Attr: Integer; var F: TSearchRec ): Integer;
Модуль: 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;
главная
Смотрите также
