写程序 如何读取dbe里的数据路径设置(100分)

我想写程序读取dbe里数据库的设置路径

如何才能返回dbe里一个数据项目的数据库路径的值

是BDE吧, 下面给你一个读paradox别名所在路径的例子

需要在有Tquery或TTable控件的窗体中执行.

procedure TForm1.Button1Click(Sender: TObject);
var
AParams: TStringList;
sDir: string;
begin
begin
try
AParams := TStringList.Create;
Session.GetAliasParams('DBDEMOS',AParams);
sDir := Copy(AParams.Strings[0],6,255);//获得别名DBDEMOS所指的路径
SHOWMESSAGE(sDir);
finally
AParams.Free;
end;
end;
end;

接受答案了.