Extension –новое расширение имени файла FileName.

ExpandFileName (const FileName: string): string;

Функция возвращает полное имя файла, указанного в строке FileName.

ExpandFilePath (const FileName: string): string;

Функция возвращает путь к имени файла, указанного в строке FileName.

ExtractFileName (const FileName: string): string;

Функция возвращает имя и расширение файла, указанного в строке FileName.

FileNameможет быть и полным именем файла.

ExtractFileExt (const FileName: string): string;

Функция возвращает расширение файла, указанного в строке FileName.

FileNameможет быть и полным именем файла.

ExtractShortPathName (const FileName: string): string;

Функция позволяет преобразовать "длинные" имена файла, указанного в строке FileNameи его пути, в "кроткие", представляемые в форме 8.3

FileNameможет быть и полным именем файла.

Непосредственно для поиска файлов используются функции FindFirst и FindNext.

Функция

FindFirst (const Path: string; Attr: Integer; var F: TSearchRec): Integer;

находит первый файл, заданный полным маршрутом Path и параметрами Attr. Если заданный файл найден, функция возвращает 0, иначе — код ошибки Windows. Параметры найденного файла возвращаются в записи F типа TSearchRec.

Функция

FindNext (var F: TSearchRec): Integer;

применяется для повторного поиска следующего файла, удовлетворяющего критерию поиска. При этом используются те параметры поиска, которые заданы последним вызовом функции FindFirst. В случае удачного поиска возвращается 0.

Для освобождения ресурсов, выделенных для выполнения поиска, применяется процедура:

FindClose (var F: TSearchRec);

type

TSearchRec = record

Time: Integer;

Size: Integer;

Attr: Integer;

Name: TFileName;

ExcludeAttr: Integer;

FindHandle: THandle;

FindData: TWin32FindData;

end;

Рассмотрим фрагмент исходного кода, как пример организации поиска файлов, в котором маршрут поиска файлов задается в компоненте TEdit, а список найденных файлов передается в компонент TListBox.

procedure TForml.ButtonClick(Sender: TObject);

Begin

ListBox1.Items.Clear;

FindFirst(Edit1.Text, faArchive + faHidden, SearchRec);

while FindNext(SearchRec) = 0 do

ListBox1.Items.Add(SearchRec.Name);

FindClose(SearchRec);

end;