如何获取上级目录？

Question

例如：
c:\aa\bb\cc\dd\abc.exe
如何取到c:\aa\bb\cc或c:\aa\bb ？有函数吗？ 

Answer 1

你可以测试一下嘛:假设C分区根目录下有boot.ini文件及winnt目录
那么'c:\winnt\..\boot.ini' == 'c:\boot.ini'if fileexists('c:\winnt\..\boot.ini') then showmessage('exists');

Answer 2

var
  S: string;
begin
  S := 'c:\aa\bb\cc\dd\abc.exe';
  ShowMessage(ExtractFileDir(ExtractFileDir(S))); //c:\aa\bb\cc
  ShowMessage(ExtractFileDir(ExtractFileDir(ExtractFileDir(S)))); //c:\aa\bb
end;