BDE问题

Question

请问如何在代码中实现设置bde别名已经用代码实现bde动态链接数据库，就是不用手工设置bde链接。

Answer 1

>>代码中实现设置bde别名
修改注册表就可，在
HKEY_CURRENT_USER\Software\Borland\BDE
下看看

Answer 2

我的意思是不通过控制面板里的bde进行设置和链接，直接用程序实现一系列的动作。

Answer 3

自己解决了，只要注册一个别名就ok　了．分享一下吧：
procedure TForm1.BitBtn2Click(Sender: TObject);
var
BDEList:TStringlist;
//str:string;
begin
//str:=edit5.Text ;
   BDEList:=tstringlist.Create ();
   try
   session.Getaliasnames(bdelist) ;
   IF BDEList.IndexOf('sa')=-1 then begin
   BDEList.Clear ;
   BDEList.Add ('SERVER NAME=192.168.18.88' );//数据库服务器名称
   BDEList.add('DATABASE NAME=jfsystem' );
   BDEList.Add('ENABLE BCD = TRUE');
    BDEList.Add('USER NAME=sa' );
   BDEList.Add('PASSWORD=1');
    Session.addalias('sa' ,'MSSQL',BDEList);
  showmessage('系统即将建立bde别名！');
    session.Saveconfigfile();
    database1.AliasName :='sa';
    end;
    finally
    BDEList.free;
    end;
     end;