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

III. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ФАЙЛАМИ

5. Функции и процедуры низкоуровневого доступа к файлам

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

[ Оглавление ]