Alterando Idapi32.Cfg Via Programa

Check(DbiAddAlias(Nil, PChar(' AliasName '), Nil, PChar(' AliasPath'), True));

Substitua AliasName pelo nome do alias que você quer criar e em AliasPath pelo path dos arquivos de dados que você quer no seu alias.

Inclua na cláusula "USES" as units BD e BDE.

Complemento enviado por um colaborador:

 

procedure TForm1.AlterarClick(Sender: TObject);
var
  AParams: TStringList;
  caminho:string;
begin
  caminho:='path=' + edit1.text;

  if not Session.IsAlias('Teste') then
  begin
    Check(dbiInit(nil));
    Check(dbiAddAlias(Nil, PChar('teste'), szParadox, PChar(caminho), True));
    Check(DbiExit);
  end;

  AParams := TStringList.Create;
  try
    Session.GetAliasParams('Teste',AParams);
    begin
    AParams.Clear;
    AParams.Add(caminho);
    Session.ModifyAlias('Teste',AParams);
    Session.SaveConfigFile;
    end;
  finally
    AParams.Free;
  end;
end;


Marco Aurélio Braun
Três Coroas - RS