Блокировка файла

...действительно, когда вы запрашиваете о блокировке файла и прерывания 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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 828 • TDictionary Custom Sort 6 822 • Fast Watermark Sources 6 603 • 3D Designer 9 566 • Sik Screen Capture 6 942 • Patch Maker 7 389 • Айболит (remote control) 7 336 • ListBox Drag & Drop 6 194 • Доска для игры Реверси 98 181 • Графические эффекты 7 509 • Рисование по маске 6 794 • Перетаскивание изображений 5 648 • Canvas Drawing 6 026 • Рисование Луны 5 819 • Поворот изображения 5 270 • Рисование стержней 3 861 • Paint on Shape 3 018 • Генератор кроссвордов 3 974 • Головоломка Paletto 3 151 • Теорема Монжа об окружностях 3 986 • Пазл Numbrix 2 633 • Заборы и коммивояжеры 3 444 • Игра HIP 2 360 • Игра Go (Го) 2 278 • Симулятор лифта 2 676 • Программа укладки плитки 2 236 • Генератор лабиринта 2 791 • Проверка числового ввода 2 398 • HEX View 2 733 • Физический маятник 2 424

Блокировка файла

Похожие по теме исходники