Добавление псевдонима BDE с помощью функции DbiAddAlias

var
 pszAliasName: PChar; { Имя псевдонима }
                                pszDriverType: PChar; { Тип драйвера для псевдонима }
                                pszParams: PChar; { Дополнительные параметры }
                                bPersist: Bool; { Постоянный или временный псевдоним }
                                dbiRes: Integer; { Возвращаемый код }
begin
 pszAliasName := strAlloc(25);
 pszDriverType := strAlloc(25);
 pszParams := strAlloc(100);

 try
 bPersist := True;
 strPcopy(pszAliasName, 'Lance');
 strPcopy(pszDriverType, 'PARADOX');
 strPcopy(pszParams, 'PATH:' + 'c:\Paradox\');

 dbiRes := DbiAddAlias(nil, pszAliasName, pszDriverType, pszParams,
 bPersist);

 finally
 strDispose(pszAliasName);
 strDispose(pszDriverType);
 strDispose(pszParams);
 end;
end;