在TFileStream的构造函数中指定"FILE_SHARE_READ或FILE_SHARE_WRITE"时,Delphi XE3给出了EFOpenError

Question

以下语句在Delphi XE(Windows 7 x64)下正常运行,但在Delphi XE3(Windows 7 x64)下提供了"Exception class EFOpenError with message ...".它看起来像一个bug.如果是这样,有解决方法吗？

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

这不是一个bug.请参阅文档了解详细信