delphi - 如何使用Delphi检查路径是否指向根文件夹

Question

检查某个路径是否指向驱动器根目录的最佳/最简单方法是什么？

我想我可以检查路径名是否以“\”或“:”结尾，或者路径的长度是否只有 2 或 3 个字符，但我希望有某种标准的“IsDriveRoot”函数来检查一下。

发送

更新:

搜索 Delphi 帮助文件后，我发现了 ExtractFileDrive() 函数，它返回任何给定路径的驱动器部分。

使用该函数，我想很容易编写一个小函数来检查原始路径是否与 ExtractFileDrive() 的结果相同，这意味着原始路径必须是驱动器的根目录。

Function IsDriveRoot(APath: string): Boolean;
begin
  Result := ((Length(APath) = 2) and (ExtractFileDrive(APath) = APath))
         or ((Length(APath) = 3) and ((ExtractFileDrive(APath) + '\') = APath));
end;

或

Function IsDriveRoot(APath: string): Boolean;
begin
  Result := ((Length(APath) = 2) and (Copy(APath,2,1) = ':'))
         or ((Length(APath) = 3) and (Copy(APath,3,1) = '\'));
end;

类似的事情应该可以做到......

我实际上认为第二个例子更简单，并且可能最终会使用那个例子。

再次感谢所有回复的人:)

Answer 1

看来GetVolumePathName对您的情况非常有帮助。