Вот смотри
Код:
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;
но я не понял к какому файлу досткп закрывается и пользователь не сможет не чё с ним сделать? И еще как эту процедуру прописать чтоб действовала по нажатию клавиши??