在程序中用代码生成别名吧,安装后直接运行,什么都不用管了。
ExeFilePath : string;
BDEAlias: TStringList;
{字符串列表变量}
begin
ExeFilePath := ExtractFilePath(Application.exeName);
BDEAlias := TStringList.Create;
try
try
ATSSession.Active := False;
ATSSession.GetAliasNames(BDEAlias);
{取得别名列表}
if (BDEAlias.IndexOf('KS') = -1) then
{判断别名是否存在}
begin
// Application.MessageBox('别名不存在,现在创建吗?', 'BDE信息窗口', MB_ICONQUESTION+MB_OK);
{增加一个名为Cngzsamp的数据库别名}
ATSSession.AddStandardAlias('KS', ExeFilePath+'db', 'PARADOX');
// ATSSession.AddAlias('KS0','Microsoft Paradox Driver (*.db ', BDEAlias);
ATSSession.SaveConfigFile;
{BDE配置文件存盘}