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

当我有这个目录路径：

C:\Program Files (x86)\Embarcadero\

我正在寻找的功能应该是：

C:\Program Files (x86)\

我已经尝试过这个代码,但它只适用于文件,而不适用于目录：

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

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

解决方法

你可以用几种方法：

从文件夹名称：

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

从文件名：

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