Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 9:13 PM
Начало » Статьи » Работа с файлами

Функция FindFirst
Функция 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;

Категория: Работа с файлами | Добавил: Admin (2006-12-17)
Просмотров: 1989 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: