varpszAliasName: 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
;