Имитация псевдонима PdoxWIN PRIV

var

  d : TDataBase;
begin

  d := TDataBase.Create(Application);
  d.DataBaseName := 'PRIV';
  d.DriverName := 'STANDARD';
  d.Params.Add('PATH='+Session.PrivateDir);
  d.Connected := True
;
end
;

...теперь вы имеете псевдоним с именем 'PRIV', указывающий на частный каталог.

Другое по теме:

• Динамически создаваемые псевдонимы
• Добавление псевдонима с помощью функции DbiAddAlias
• Задание псевдонима программным путем