Защита файлов!

[Sanek777]

Как сделать программно защиту файлов, вот например как в Антивирусе Касперского, ничто из ресурсов удалить не возможно. А сделать простую защиту программой чтобы не возможно было удалить файлы используемые программой во время ее работы?

[Terran]

Вы можете сделать так:

Var
ZP: TFileStream;
Procedure TForm1.Button1Click(Sender: TObject); //Запретить удаление
Begin
ZP:=TFileStream.Create('C:\Se\1\1.txt', FmShareDenyNone);
End;
Procedure TForm1.Button2Click(Sender: TObject); //Разрешить
Begin
ZP.Free;
End;

[JTG]

как в Антивирусе Касперского

Это сложно, только через дрйвер, но и FmShareDenyNone поможет от 3/4 пользователей