|
|
![]() |
![]() |
![]() |
Создаём
заблокированный файл
Например, если приложение использует для своей работы временный
файл, то кто-нибудь всегда может изменить его. Так вот пример показывает,
как можно защититься от этого.
Совместимость: 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 );
Теперь
Вы можете работать с файлом, но пользователи уже не смогут изменить его!
Автор: Christian Cristofori (zizzo81@hotmail.com)
Источник:
http://www.sources.ru/delphi/
|
| Copyright ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
| Источник получения информации: http://www.delphimaster.ru
|
|
