BDE的配置小问题(50分)

请问怎样动态的在程序运行中配置BDE，我想将BDE中的 NET 路径这项在程序中设置，请问如何做
PARODOX 在BDE中也有一项NET的路径设置，怎样在程序中设置？

在程序中设定注册表HKEY_LOCAL_MACHINE/software/borland/ 下的内容就可以了，
可以根据你所用的数据库进行设定

对，修改注册表就得了。

新建别名

胡乱给你摘了一点，这些就是实现你的功能的。
bde_Alias := TStringList.Create;

bde_Alias: TStringList;
bde_Alias := TStringList.Create;
Session.GetAliasNames(bde_Alias);

DB_Alias:TStringLIst;
Session.GetAliasParams('你的别名', DB_Alias);
// DB_Alias就是你的别名的TStringList，可以访问的。

Session.AddAlias('别名', 'MSSQL', DBa_Alias)
Session.ModifyAlias('别名', DB_Alias);

HKEY_LOCAL_MACHINE/software/borland/ 里我找了没有NET DIR 着一项，我是要程序自己
能修改，而不是手动

procedure TForm1.BitBtn1Click(Sender: TObject);
var
ap:TStringList; {字符串列表变量}
MyList: TStringList;
begin //
ap:=TStringlist.Create;
Session.GetAliasNames(ap); {取得别名列表}
if (ap.IndexOf('Cntssamp')=-1) then {判断别名是否存在}
begin
if Application.MessageBox('别名Cntssamp不存在，现在创建吗？','BDE信息窗口',mb_OKCancel)=IDCANCEL then
begin{增加一个数据库别名}
ap.Free;
Exit;
end
else begin
{创建单机版别名：AddStandardAlias函数则需要传递三个参数，Name参数用于指定名称，
Driver参数用于指定SQL Links驱动程序，List参数用于指定连接参数。}
try
Session.AddStandardAlias('Cntssamp','c:/delphp11','Paradox');
Session.SaveConfigFile; //BDE配置文件存盘
Showmessage('单机版BDE别名Cntssamp已经创建！');
finally
ap.Free;
end;//try

//服务器版
{ MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME=sybase');
Add('USER NAME=usjgl');
end;
Session.AddAlias('sjgl', 'sybase', MyList);
Showmessage('服务器版BDE别名sybase已经创建！');
finally
MyList.Free;
end;
}
end; //else 是否创建
end; //if 是否存在
end;

end.

楼上的，我看了可没有看到我要的那一项NET DIR 啊

用 Session 构件 什么都可以搞定 别 饿方式 也可以 不过没这简单 ！

自己再研究这个构件一下 相信没什么困难！

MY GAD 半疯.半仙 你能不能不要这样应付我,我可是花了50大银啊,能不能教一下怎么做
,自己研究行的话,我干吗要到着来啊

在窗体或数据模块上放一个TSession部件。
设置SessionName----随便即可，或用它的AutoSessionName属性
把所以有TDatabase,TTable,TQuery,tStoredProc的SessionName全部改为它的
然后在这个Session部件Active之前，在程序中设置它的NetFileDir为你需要的路径即可。