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

...действительно, когда вы запрашиваете о блокировке файла и прерывания 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 695 • DeLiKaTeS Tetris (Тетрис) 5 696 • TDictionary Custom Sort 7 653 • Fast Watermark Sources 7 345 • 3D Designer 10 554 • Sik Screen Capture 7 871 • Patch Maker 8 094 • Айболит (remote control) 8 153 • ListBox Drag & Drop 6 948 • Доска для игры Реверси 100 154 • Графические эффекты 8 215 • Рисование по маске 7 611 • Перетаскивание изображений 6 211 • Canvas Drawing 6 581 • Рисование Луны 6 502 • Поворот изображения 5 680 • Рисование стержней 4 604 • Paint on Shape 3 300 • Генератор кроссвордов 4 288 • Головоломка Paletto 3 429 • Теорема Монжа об окружностях 4 252 • Пазл Numbrix 2 755 • Заборы и коммивояжеры 3 659 • Игра HIP 2 467 • Игра Go (Го) 2 450 • Симулятор лифта 2 861 • Программа укладки плитки 2 297 • Генератор лабиринта 3 021 • Проверка числового ввода 2 519 • HEX View 2 927

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

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