delphi - Delphi XE3は、TFileStreamのコンストラクターで「FILE_SHARE_READまたはFILE_SHARE_WRITE」を指定するとEFOpenErrorを返します。

Question

次のステートメントは、Delphi XE（Windows 7 x64）では正常に実行されますが、Delphi XE3（Windows 7 x64）では「例外クラスEFOpenErrorwithmessage...」が表示されます。バグのようです。もしそうなら、回避策はありますか？

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

バグではありません。詳細については、ドキュメントを参照してください。