delphi - 如何将 TFileStream 与 FILE_SHARE_DELETE 一起使用？

Question

这份QC报告说Delphi不支持文件共享模式FILE_SHARE_DELETE

http://qc.embarcadero.com/wc/qcmain.aspx?d=45628

我需要将此模式与 TFileStreams 结合使用 - 谁能想到一种不涉及修改库代码或从库中复制大量内容的简单解决方法？

Answer 1

QC 报告正确。 TFileStream(更具体地说，SysUtils.FileOpen() 函数)不支持FILE_SHARE_DELETE。它仅支持FILE_SHARE_READ和FILE_SHARE_WRITE。

为了使用 TFileStream 本身支持的共享权限，您必须直接调用 Win32 API CreateFile() 函数，然后您可以构造一个 THandleStream 对象使用 CreateFile() 返回的句柄。