请问一个关于动态更改BDE设置的问题。

Question

使用IDAPI做，下面是增加ALIAS的例子：
Function TAddAlias.Execute: Integer;
Var
DBIni: Integer;
beginResult := DBIinit(Nil);
if Result <> 0 then
   Exit;
Result := DbiAddAlias(Nil, PChar(fAlias), PChar(fDriver), PChar(fParams), fPersistent);End;

Answer 1

 asl := Tstringlist.Create ;
  asl.Clear ;
  asl.Add ('Driver Name= MSSQL');
  asl.Add ('Server Name= ' + svrname);
  asl.Add ('Database Name= ' + Dname);
  asl.Add ('User Name= ' + Username);
  asl.Add ('sqlqrymode=local');
  asl.add ('langdrive=xxx');  if not Session.IsAlias ('STJ') then
  begin
   try
     Session.AddAlias ('STJ','MSSQL',ASL);
    finally
     asl.Free ;
    end;
  end
  else if Session.IsAlias ('STJ') then
  begin
   try
     Session.ModifyAlias ('STJ',ASL);
    finally
     asl.Free ;
    end;
  end;

Answer 2

这样不行，不信你们自己看看，看看能否改掉Native\DBASE的LANGDRIVER