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