Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007

Автор: Tom Stickle

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;

Взято с https://delphiworld.narod.ru