// 建立一個 STANDARD driver 的資料庫別名
// 如果別名已存在, 則修改之.
// 參數 sPath 為路徑名，sDefDriver 可為 'PARADOX' 或 'DBASE'
// Written by Michael Tsai
procedure DbAddStdAlias(const sAliasName, sPath, sDefDriver: string);
var
  ParamList: TStrings;
begin
  with Session do
  begin
    ConfigMode := cmPersistent;
    try
      if IsAlias(sAliasName) then
      begin
        ParamList := TStringList.Create;
        try
          ParamList.Add('PATH=' + sPath);
          ModifyAlias(sAliasName, ParamList);
        finally
          ParamList.Free;
        end;
      end
      else
        AddStandardAlias(sAliasName, sPath, sDefDriver);
      SaveConfigFile;
    finally
      ConfigMode := cmAll;
    end;
  end;
end;