delphi实现获取主程序所在目录的上一级目录

var

  s:string;

begin

  s := ExtractFileDir(Application.ExeName);

  ShowMessage('本级目录：' + s + #13#10

             +'上一级目录: ' + ExtractFilePath(s + '..'));

end;