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