TDirectory.GetDirectoryRoot 不能正确处理 Max_Path 字符的路径

Question

IOUtils.TDirectory.GetDirectoryRoot(Folder) 在“文件夹”长度为 259 个字符时给我一个错误（是的，它在末尾包含 \ 分隔符）：

Project Tester.exe 引发异常类 EPathTooLongException message '指定的路径太长'。

虽然我可以在路径中使用多达 260 个字符。

为什么 GetDirectoryRoot 不接受 Max_Path 字符的路径？

Answer 1

这就是原因：

class procedure TDirectory.InternalCheckDirPathParam(const Path: string; const ExistsCheck: Boolean);
begin
  TPath.CheckPathLength(Path, MAX_PATH {$IFDEF MSWINDOWS}- TFile.FCMinFileNameLen{$ENDIF});
 ...
end;

这是这个“奇妙”功能的用户手册：

返回给定路径的根目录。

使用 GetDirectoryRoot 获取给定路径的根目录。 相对路径被认为是相对于应用程序工作的 目录。下表列出了此预期的参数 方法。

注意：如果给定的路径是 GetDirectoryRoot，则会引发异常 无效或目录不存在。

感谢 Embarcadeor/Idera 提供这项高质量的工作！

---

因此，IOutils 不能与 Max_Path 一起使用。它到处使用InternalCheckDirPathParam！

解决方案是定义自己的MaxPath 常量：

  {$IFDEF MSWINDOWS}
    MAXPATH= MAX_PATH- 12;               { TFile.FCMinFileNameLen = 12. There is a problem in IOUtils and we cannot user Max_Path. }
  {$ELSE}
    MAXPATH= MAX_PATH;
  {$ENDIF}

所以，现在去执行 Ctrl+Shift+F 并检查所有代码 :)

无论如何，冲突仍然存在：某些 API 调用返回的有效路径（260 个字符）不能传递给只接受 248 个字符的IOUtils。如果您找到更好的解决方案，请告诉我/我们，我会接受您的回答:)