在程序中建立:程序一个例子如下:
procedure TFrmTM.AutoCreateAlias;
const
DBType='Type=STANDARD';
DBDefaultDriver='DEFAULT DRIVER=PARADOX';
DBBCD='ENABLED BCD=FALSE';
DBPATH='PATH=';
DataDir='Data';
AliasName='TM';
var
MyList: TStringList;
DataPath:string;
begin
if test.IsAlias(AliasName) then
begin
Exit;
//如果别名存在则不建立否则建立TM别名。
end;
MyList := TStringList.Create;
DataPath:=RectifyPath(GetCurrentDir)+DataDir;
try
with MyList do
begin
Add(DBType);
Add(DBDefaultDriver);
Add(DBBCD);
Add(DBPath+DataPath);
end;