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

...действительно, когда вы запрашиваете о блокировке файла и прерывания 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 077 • DeLiKaTeS Tetris (Тетрис) 6 008 • TDictionary Custom Sort 7 953 • Fast Watermark Sources 7 596 • 3D Designer 10 850 • Sik Screen Capture 8 181 • Patch Maker 8 382 • Айболит (remote control) 8 417 • ListBox Drag & Drop 7 284 • Доска для игры Реверси 101 648 • Графические эффекты 8 468 • Рисование по маске 7 836 • Перетаскивание изображений 6 429 • Canvas Drawing 6 811 • Рисование Луны 6 750 • Поворот изображения 5 844 • Рисование стержней 4 797 • Paint on Shape 3 486 • Генератор кроссвордов 4 514 • Головоломка Paletto 3 628 • Теорема Монжа об окружностях 4 416 • Пазл Numbrix 2 872 • Заборы и коммивояжеры 3 822 • Игра HIP 2 589 • Игра Go (Го) 2 605 • Симулятор лифта 2 982 • Программа укладки плитки 2 414 • Генератор лабиринта 3 160 • Проверка числового ввода 2 647 • HEX View 3 058

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

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