Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.24;
Скачать: CL | DM;

Вниз

Доступ к файлу   Найти похожие ветки 

 
Антипов Николай   (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.



Страницы: 1 вся ветка

Текущий архив: 2002.01.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
4-75721
lionheart
2001-11-23 11:15
2002.01.24
SetWindowsHookEx


3-75532
SADAM
2001-12-21 12:29
2002.01.24
TTable and Excel


1-75585
RealGrey
2002-01-04 15:31
2002.01.24
Как записать в TDBGrid данные, но с Source ом их не связывать


1-75559
Vygantas
2001-12-29 00:22
2002.01.24
Как впихать форму в DLL и как потом ее от туда взять ??


14-75652
Merlin
2001-11-25 05:02
2002.01.24
Медленно спустимся с горы...