各位请问如何修改BDE的别名，在线等待！

Question

procedure TForm1.ChangeAlias;var
  AParams: TStringList;
  Dir: string;
begin
  if not Session.IsAlias('MyAlias') then
    begin
      ShowMessage('Alias MyAlias does not exist');
      Exit;
    end;
  AParams := TStringList.Create;
  try
    // get the current PATH parameter
    Session.GetAliasParams('MyAlias',AParams);
    Dir := Copy(AParams.Strings[0],6,255);
    // get the new PATH parameter
    if InputQuery('MyAlias Alias Path','Path:' ,Dir) then      begin
        // Update the alias parameters
        AParams.Clear;
        AParams.Add('PATH=' + Dir);
        Session.ModifyAlias('MyAlias',AParams);
        Session.SaveConfigFile;
      end;
    finally
      AParams.Free;
    end;
  end;

Answer 1

选择DATABASE选项卡，先在想要改的别名上面用MOUSE选择一下，然后在左上角把象打开的文件夹一样的图标点起来（他的默认是按下去的）点起来以后就可以改别名了。

Answer 2

程序1。procedure SetAlias; { 设置当前数据的别名(PARADOX) }
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('PATH=你的数据库的路径');
Add('ENABLE BCD=FALSE');
end;
Session.AddAlias('你的数据库别名', 'PARADOX', MyList);
finally
MyList.Free;
end;
end; { SetAlias }