Define BDE alias

Use DbiAddAlias function with necessary parameters. Example shows adding STANDARD alias.

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;