文本文件加载后就释放文件句柄了。无法通过能否以独占方式打开它来判断其是否被打开了。有没有参数可以设置打开文本文件后不释放文件句柄。

解决方案 »

  1.   


    procedure OpenForExclusive(const FileName: String);
    var
      FileHandle : Integer;
    begin
      FileHandle := FileOpen(FileName, fmOpenRead+fmShareExclusive);
      if FileHandle > 0 then
        {你的代码...}
      else
        {出错处理...}
    end;
      

  2.   

    是说用NOTEPAD或者ULTRAEdit打开文件后能不能不释放文件句柄。NOTEPAD或者ULTRAEDIT由我来调用。
      

  3.   

    还以为是你自己打开呢,调用NotePad的时候它自己释放了,不能控制的吧