BDE别名的建立、删除：

BDE 别名的建立、删除：

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 }

参照BDE中的设置，可建立其它数据库的别名。