If FileHandle > 0 then

// операции, выполняемые, когда файл открыт

Else

// ошибка: FileHandle содержит код ошибки открытия

Функции работы с дисками, каталогами и устройствами:

ExtactFileDrive (const FileName: string): string;

Возвращает имя диска, на котором размещен файл с именем FileName.

ExtractFileDir (const FileName: string): string;

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

IncludeTrailingBackSlash (const S: string): string;

Функция возвращает заданный путь, оканчивающийся символом обратного слеша в конце. Если указанный путь содержал в конце обратный слеш, то возвращается заданное значение без изменений.

S – строковый параметр, определяющий путь.

Пример.

Var

S: string;

Begin

S:= 'C:\Test\My';

S:=IncludeTrailingBackSlash (S); // функция возвратит 'C:\Test\My\'

End;

GetCurrentDir: string;

Возвращает имя текущей папки и полный путь к ней.

Пример.

Var

Dir: string;

Begin

ChDir ('C:\Test');

ChDir ('My');

Dir:= GetCurrentDir; // получим Dir - 'C:\Test\My'

End;

DirectoryExists (Name: string): boolean;

Позволяет проверить, существует ли папка с именем Name.Указанный путь может быть абсолютным или относительным.

Абсолютный путь включает в себя имя диска и имена всех родительских папок. Относительный путь начинается от текущей папки, которая считается корневой.

Пример.

If not DirectoryExists ('C:\Temp') then CreateDir ('C:\Temp');

FileExists (const FileName: string): boolean;

Позволяет проверить, существует ли файл с именем FileName.Указанный путь может быть абсолютным или относительным.

Пример.

If not FileExists ('C:\Temp\test.txt') then FileCreate ('C:\Temp\test.txt');

DiskSize (Drive: byte): Int64;

Функция возвращает размер диска, указанного строкой Drive(0 – текущий диск, 1 – диск А, …), в байтах. Если указанного диска не существует, функция возвращает значение, равное -1.

DiskFree (Drive: byte): Int64;

Функция возвращает размер свободного места на диске, указанном строкой Drive(0 – текущий диск, 1 – диск А, …), в байтах. Если указанного диска не существует, функция возвращает значение, равное -1.

Функции работы с атрибутами файла:

FileGetAttr (const FileName: string): integer;

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

Файлы могут иметь следующие атрибуты:

Если файл с указанным именем не найден, функция возвращает -1.

FileSetAttr (const FileName: string; Attr: integer): integer;

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

Пример.

Var

Attrs : integer;

Begin

Attrs:= FileGetAttr ('MyFile.sys');

If Attrs and faHidden <> 0 then FileSetAttr ('MyFile.sys', Attrs and faHidden);

End;

Функции работы с именем и расширением файла:

ChangeFileExt (const FileName, Extension: string): string;

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