Функции и процедуры Delphi. Справочник.

Функция FileOpen(
const FileName: string;
Mode: Integer ): Integer;

Модуль: SysUtils

Описание
Функция открывает файл с именем FileName в режиме доступа, определенном параметром Mode.
Значение режима доступа задается с помощью одной из констант fmOpen и одной из констант fmShare (см. таблицу ниже). Между указанными константами ставится оператор OR.
Если файл успешно открыт, то функция возвращает дескриптор файла, иначе возвращается значение -1.

Константа	Значение	Описание
fmOpenRead	$0000	Только чтение
fmOpenWrite	$0001	Только запись
fmOpenReadWrite	$0002	Открытие для чтения и записи
fmShareCompat	$0000	Совместный доступ, посредством FCBs (File Control Blocks)
fmShareExclusive	$0010	Никакие другие приложения не могут открывать файл ни в каком режиме
fmShareDenyWrite	$0020	Другие приложения не могут открывать файл только для записи
fmShareDenyRead	$0030	Другие приложения не могут открывать файл только для чтения
fmShareDenyNone	$0040	Полный доступ для других приложений

Данная функция использует низкоуровневый доступ к файлам, поэтому, во избежание возникновения проблем, рекомендуется вместо нее использовать связки процедур AssignFile-Rewrite и AssignFile-Reset

Пример
var

FileHandle: Integer;
Data: string;

begin

...
FileHandle:= FileOpen('myfile.zzz', fmOpenWrite or fmShareDenyNone);
Date:= DateTimeToStr(FileDateToDateTime( FileGetDate(FileHandle)));
...

end;

[Вернуться к содержанию]