Как создать псевдоним?

[Анастас]

Добрый вечер! сделала БД в Database Desktop через paradox, каждый раз перенося БД на другой компьютер надо создавать заново псевдоним (алиас). Можно ли как-то программно (или другим способом) прописать псевдоним, чтоб не было необходимости его постоянно пересоздавать?

[mihali4]

Например:
В данном примере путь к базе есть каталог Вашего приложения.

with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias('TempAlias', ExtractFilePath(ParamStr(0)), 'DBASE');
finally
ConfigMode := cmAll;
end;
end;

Или:

uses  DBIProcs, DBITypes;
...
procedure TForm1.Button3Click(Sender: TObject);
var
  AliasName, AliasPath: string;
begin
  AliasName:='TESTAlias2';
  AliasPath:='PATH:C:\Tools';
  Check(DbiAddAlias(nil, PChar(AliasName), nil, PChar(AliasPath), True));
end;