Доступ к файлу [D5, Win95/98]
Антипов Николай © (2002-01-05 17:37:00)
Здравствуйте, Мастера Delphi. У меня к вам такой вопрос:
Необходимо запретить доступ к файлу для всех, и разрешить
только для
самой системы Windows. Я думаю здесь необходимо как-то
перехватывать
запросы на открытие(копирование,удаление и т.п.), определить,
кто его послал
и затем решить, выполнить его или отвергнуть. Как все это
можно
организовать на Delphi? Заранее благодарен!!!
XeN (2002-01-06 01:50:00) [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.
Наверх 
ЧАТ |
Орешник |
|
