Para agregar un nuevo alias mediante código (colocar este código en una función o procedimiento):

Var 
  AliasFound: Boolean; 
  TmpCursor: hDBICur; 
  Rslt: DBIResult; 
  Database: DBDesc; 

Begin 
  Check(DbiInit(nil)); 
  try 
  Check(DbiOpenDatabaseList(TmpCursor)); 
  AliasFound := False; 
    repeat 
      {coger registro DBDesc para el siguiente Alias} 
      rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @Database, nil); 
      if (rslt <> DBIERR_EOF) then 
        if StrPas(Database.szName) = 'MyAlias' then 
        begin 
          {El alias MyAlias ya existe} 
          AliasFound := True; 
          Break 
        end; 
    until rslt <> DBIERR_NONE; 
    Check(DbiCloseCursor(TmpCursor)); 
    if not AliasFound then 
      {si no encuentra el alias, lo añade al IDAPI.CFG} 
      Check(DbiAddAlias(nil,PChar('MyAlias'),nil, 
         PChar('PATH:'+ExtractFilePath(Application.ExeName)),True)) 
  finally 
    DbiExit; 
  end; 
end; 

Publicado el: 2003-09-11