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;