Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Доступ к файлу 


Антипов Николай   (2002-01-05 17:37) [0]

Здравствуйте, Мастера Delphi. У меня к вам такой вопрос:
Необходимо запретить доступ к файлу для всех, и разрешить только для
самой системы Windows. Я думаю здесь необходимо как-то перехватывать
запросы на открытие(копирование,удаление и т.п.), определить, кто его послал
и затем решить, выполнить его или отвергнуть. Как все это можно
организовать на Delphi? Заранее благодарен!!!



XeN   (2002-01-06 01:50) [1]

Выбираешь нужный тебе файл и делаешь...

procedure OpenForShare(const FileName: String);

var
FileHandle : Integer;
begin
FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
if FileHandle > 0 then
{valid file handle}
else
{Open error: FileHandle = negative DOS error code}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenForShare((FileNameedit1.Text));
end;

end.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.016 c
3-75492           Killavit              2001-12-18 22:50  2002.01.24  
Индексация Таблиц


3-75471           vinni2000             2001-12-19 15:06  2002.01.24  
Нужен совет типа RxRichEdit


14-75678          Desdechado            2001-11-29 20:06  2002.01.24  
Бывают ли бананы червивыми?


1-75619           Starkom               2002-01-08 11:21  2002.01.24  
Не могу инсталлировать Delphi5 под WinXP


3-75530           Аркадий               2001-12-21 17:42  2002.01.24  
Delphi - BDE - MS SQL login failed