Try Except, con alias.

[pape19]

Saludos.

Tengo una aplicación, que al iniciarse, por código crea un ALIAS en el BDE para la ruta de las tablas paradox de la aplicación, que se encuentran en una unidad de red. Luego, al finalizar la aplicación, este ALIAS se elimina.

El problema es, que si se cierra mal, el alias no se elimina, y al volver a ejecutar la aplicación, se intenta crear de vuelta, y tira el error "Name not unique in this context".

La solución que pensé es poner un try except, de manera que, si el alias ya esta creado y tire ese error, siga con la ejecucion de programa normal, evitando mostrar el error. Como logro esto?? El código es mas o menos el siguiente.

Código Delphi [-]
    Try
       Session.AddStandardAlias('CAInventory', 'F:\Aria\Datos\Inventario', 'Paradox');
    Except 
        Begin
        End
    End;

    TblEquipos.Active:=True;
    TblClasificacion.Active:=True;
    TblAdicionales.Active:=True;
    TblSubClasificacion.Active:=True;