请教一个BDE别名的问题，有一定挑战性，内详
设计思路是这样的，程序运行时，判断别名xyz是不是当前目录下的子目录\TestBDE，如果是，什么都不做。如果不是，则需要将别名xyz修改为当前子目录\TestBDE
如果不存在别名xyz，则需要设定别名xyz为当前子目录\TestBDE
请问各位大侠，代码如何写？万分感谢！！！
千万不要说别用BDE，我是没有办法才用这个丑陋的BDE的，分发太麻烦了！！！为什么Access效率那么低，性能那么差，还有那么多单机版用户用，就是因为分发简单！这一个优点足够掩盖其它所有缺点。



[解决办法]
用Access干吗不用ADO?
[解决办法]
为什么要用别名（Alias），直接用 TDataBase 中的 Params 不行吗？可以跳过那个无聊的别名。

DATABASE NAME=DRIVE:/PATH/DATABASE.MDB
USER NAME=
OPEN MODE=READ/WRITE
LANGDRIVER=
SYSTEM DATABASE=
PASSWORD=

[解决办法]
session.GetAliasNames(list);
if list.IndexOf(AliasName) <> -1 then
begin
List.Strings[0]:='Path='+zPath;
session.ModifyAlias(AliasName,List);
session.SaveConfigFile;
session.Active:=false;
end
else begin
try
session.AddStandardAlias(AliasName, zPath, 'paradox');
session.SaveConfigFile;
except
Abort;
end;
end;