...действительно, когда вы запрашиваете о блокировке файла и прерывания DOS,
это относится к блокировке записи. Если вы хотите иметь полностью монопольный
доступ к файлу, то в этом случае вы должны воспользоваться переменной FileMode.
Вот пример кода моей программы, где я использую эту переменную:
type
FileShareType = (DenyCompatibility, DenyAll, DenyWrite, DenyRead, DenyNone);
FileAccessType = (ReadOnly, WriteOnly, ReadWrite);
procedure SetFileAccess(AccessMode: FileAccessType; ShareMode: FileShareType);
{ Устанавливаем режим доступа к файлу для следующего вызова открытия файла }begin
FileMode := ord(AccessMode) or (ord(ShareMode) shl 4)
end;
Статья Блокировка файла раздела Файловая система Файлы может быть полезна для разработчиков на Delphi и FreePascal.
