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

Question

以下语句在 Delphi XE (Windows 7 x64) 下运行良好，但在 Delphi XE3 (Windows 7 x64) 下给出“异常类 EFOpenError with message...”。它看起来像一个错误。如果是这样，是否有解决方法？

      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);

这不是一个错误。有关详细信息，请参阅文档。