获得当前应用程序的路径

function getApplicationPath : string;
var
  strTmp : string;
begin
  strTmp := getStanPath(ExtractFilePath(application.Exename));
  result := strTmp;
end;

function getStanPath(const aPath : string) :string;
begin
  result := aPath;
  if result[length(result)] <> '/' then
    result := result + '/';
end;