ayuda con alias

[marcoszorrilla]

Prueba esto:

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.