delphi - 如何获取某个目录的父文件夹的路径？

Question

当我有这个目录路径时:

C:\Program Files (x86)\Embarcadero\

我正在寻找的函数应该返回:

C:\Program Files (x86)\

我已经尝试过此代码，但它仅适用于文件，不适用于目录:

function GetParentDirectory(const Path: string): string;
begin
  Result := ExpandFileName(Path);
end;

有谁知道我应该使用什么来返回某个目录的父文件夹的路径？

Answer 1

您可以使用几种方法:

从文件夹名称:

ExtractFilePath(ExcludeTrailingPathDelimiter('C:\Parent\Child\'));

从文件名:

ExtractFilePath(ExcludeTrailingPathDelimiter(ExtractFilePath('C:\Parent\Child\app.exe')));