delphi 取上级目录

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;