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');