Создаём заблокированный файл

Delphi , Файловая система , Файлы

Автор: Christian Cristofori

Есть как минимум два способа сделать это, но один из них, при помощи Windows API (LockFileEx и UnlockFileEx) используя параметр LOCKFILE_EXCLUSIVE_LOCK не очень хорош на мой взгляд.

Поэтому предлагаю другой способ, путём создания файла при помощи функции OpenFile:

hMyLockedFile := OpenFile( 'c:\DelphiWorld.dat', ofStruct,
OF_CREATE or OF_READWRITE or OF_SHARE_EXCLUSIVE );

Теперь Вы можете работать с файлом, но пользователи уже не смогут изменить его!

Here's the translation of the code into Russian:

// Создаем защищенный файл с помощью функции OpenFile
var
  hMyLockedFile: THandle;

hMyLockedFile := OpenFile('c:\DelphiWorld.dat', ofStruct,
                         OF_CREATE или OF_READWRITE или OF_SHARE_EXCLUSIVE);

// Теперь вы можете работать с файлом, но пользователи не смогут изменить его!

В этом коде мы используем функцию OpenFile для создания нового файла с именем 'DelphiWorld.dat' в директории C:. Параметр ofStruct указывает, что мы хотим открыть структурированный файл (в этом случае, бинарный файл).

Параметры OF_CREATE или OF_READWRITE или OF_SHARE_EXCLUSIVE определяют, как мы хотим открыть файл:

• OF_CREATE: Создать файл, если он не существует.
• OF_READWRITE: Открыть файл для чтения и записи.
• OF_SHARE_EXCLUSIVE: Закрыть файл исключительно, чтобы другие процессы не могли его модифицировать или удалить.

Установив эти флаги, мы обеспечиваем создание файла, если он не существует, а затем эксклюзивное закрепление для нашего использования. Это означает, что другие процессы не смогут модифицировать или удалить файл, пока наша программа использует его.

В статье автор предлагает создать заблокированный файл на компьютере с помощью функции OpenFile и параметром OF_SHARE_EXCLUSIVE, что позволяет пользователям только читать файл, но не изменять или удалять его.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::