请问如何取得应用程序的上一级目录

Question

应用程序为:'d:\file1\unit1\project1.exe'，用Extractfilepath(application.ExeName)取得的是：'d:\file1\unit1\'，怎样才能取得：'d:\file1\'呢？

Answer 1

Extractfilepath(application.ExeName) + '..\'
最简单。
否则用function LastDelimiter(const Delimiters, S: string): Integer;
来确定\的位置。

Answer 2

Extractfilepath(application.ExeName) + '..\'