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

Автор: Christian Cristofori

Например, если приложение использует для своей работы временный файл, то кто-нибудь всегда может изменить его. Так вот пример показывает, как можно защититься от этого.

Совместимость: Delphi 4.x (или выше)

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

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

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

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