如何用代码取得BDE中别名的实际路径？(50分)

如何用代码取得BDE中别名的实际路径？
QQ：81241951

var
Session:TSession;
aList:TStringList;
i : Integer;
begin
aList := TStringList.Create;
Session := TSession.Create(Self);
Session.SessionName := 'test';
Session.GetAliasParams('DBDEMOS',aList);
for i := 0 to aList.Count - 1 do
begin
if Pos('PATH',aList.Strings) > 0 then
ShowMessage(aList.Strings);
end;
aList.Free;
Session.Close;
Session.Free;
end;

在d7下测试通过。

OK