bde别名怎么设置(6分)

//判定并且创建别名
  aliaslist := TStringList.Create;
  try
    aliaslist.Clear;
    Session.Active:=True;
    Session.GetAliasNames(aliaslist);
    if aliaslist.IndexOf('zjsys') = -1 then
      if aliasPath = '' then
        Session.AddStandardAlias('zjsys', ExtractFilePath(Application.ExeName) +
          'data', 'Paradox')
      else
        Session.AddStandardAlias('zjsys', aliasPath, 'Paradox');
    aliaslist.Free;
  except
    aliaslist.Free;
    ShowMessage('建立数据库别名时出错，程序将退出。' + Ctrl +
      '请重新配置程序设置文件的AliasPath为正确路径。' + Ctrl +
      '如果仍然不可行，请重新启动计算机。' + Ctrl +
      '您也可以跟作者联系：'+mymail+'。');
    Application.Terminate;
  end;