delphi - 在TFileStream的构造函数中指定“FILE_SHARE_READ或FILE_SHARE_WRITE”时，Delphi XE3提供EFOpenError

Question

以下语句在Delphi XE（Windows 7 x64）下运行良好，但在Delphi XE3（Windows 7 x64）下给出了“带有消息...的异常类EFOpenError ...”。看起来像个错误。如果是这样，是否有解决方法？

      TFileStream.Create(
        'C:\Test.txt'
        , fmOpenRead,
//        FILE_SHARE_READ);
//        FILE_SHARE_WRITE);
        FILE_SHARE_READ or FILE_SHARE_WRITE);

Answer 1

使用fmShareDenyNone常量而不是FILE_SHARE_READ or FILE_SHARE_WRITE：

 TFileStream.Create(
    'C:\Test.txt', fmOpenRead or fmShareDenyNone);

这不是错误。有关详细信息，请参见 Documentation。