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

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

Недавно добавленные исходники
• Animation Loaders 1 027 • DeLiKaTeS Tetris (Тетрис) 5 958 • TDictionary Custom Sort 7 901 • Fast Watermark Sources 7 560 • 3D Designer 10 797 • Sik Screen Capture 8 132 • Patch Maker 8 317 • Айболит (remote control) 8 374 • ListBox Drag & Drop 7 225 • Доска для игры Реверси 101 378 • Графические эффекты 8 435 • Рисование по маске 7 806 • Перетаскивание изображений 6 396 • Canvas Drawing 6 774 • Рисование Луны 6 706 • Поворот изображения 5 819 • Рисование стержней 4 769 • Paint on Shape 3 466 • Генератор кроссвордов 4 471 • Головоломка Paletto 3 603 • Теорема Монжа об окружностях 4 395 • Пазл Numbrix 2 851 • Заборы и коммивояжеры 3 801 • Игра HIP 2 566 • Игра Go (Го) 2 576 • Симулятор лифта 2 962 • Программа укладки плитки 2 393 • Генератор лабиринта 3 146 • Проверка числового ввода 2 627 • HEX View 3 032

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

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