怎样防止文件被删除?

Question

ICopyHook只能截获文件夹的操作,有没有截获文件操作的?

Answer 1

好像你可以修改format,del这几个基本命令，这样可以达到你的目的，不过系统好像很多功能就受影响了

Answer 2

对ICopyHook没有深入研究过，使用API的一些方法可以达到你的目的。不过比较煎蛋的使用VCL的类也可以达到此目的，例如：var
  Form1: TForm1;
  FStream: TFileStream;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  FStream := TFileStream.Create('g:\新建 文本文档.txt', fmOpenRead+fmShareDenyNone);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  FStream.Free;
end;//只要上面的程序运行了，那么文件 g:\新建 文本文档.txt就不能被删除，文件名不可以修改，但是可以修改文件的内容。—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————