Prueba esto:
Código:
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;
Por ejemplo si quieres crear un alias llamado Work_Data que apunte al direcotrio C:\Work\data y utilice el Driver de Dbase por defecto:
AddBDEAlias('WORK_DATA','C:\WORK\DATA','DBASE' );
Un Saludo.