![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Блокировка файла
DelAlanPhi © (2003-02-17 17:05:00)Можно ли заблокировать файл для открытия???
Вот нашел пример:
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;
но он маленько не работает, если он рабочий - приведите пожалуйста пример работы с ним.
DelAlanPhi (2003-02-17 20:50:00) [1]Мне надо заблокировать так, что бы никто не мог его открыть пока моя прога его не разблокирует. Вот.
Burmistroff (2003-02-17 20:23:00) [2]Да, можно заблокировать на чтение/запись
Достаточно его просто открыть (openfile или fileopen - точно не помню) с флагами fmShareDenyRead/Write (Кажется они так называются)