uses
    DBIProcs, DBITypes;
 
  procedure AddBDEAlias(sAliasName, sAliasPath, sDBDriver: string);
  var
    h : hDBISes;
  begin
    DBIInit(nil);
    DBIStartSession('dummy', h, '');
    DBIAddAlias(nil, PChar(sAliasName), PChar(sDBDriver),
                PChar('PATH:' + sAliasPath), True );
    DBICloseSession(h);
    DBIExit;
  end;
 
 
 { Sample call to create an alias called WORK_DATA that }
 { points to the C:\WORK\DATA directory and uses the    }
 { DBASE driver as the default database driver:         }
 
  AddBDEAlias('WORK_DATA', 'C:\WORK\DATA', 'DBASE');