张志峰的博客

水滴石川,积少成多。

导航

delphi 取上级目录

Posted on 2017-06-21 13:02  ╰★张志峰★╮  阅读(1240)  评论(0编辑  收藏  举报

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;

 

 

strPar := ExtractFileDir(ExtractFileDir(Application.ExeName)) + '\';
sFileName_IPC := strPar + CH_AppName_Auto;