Conocer si un DLL esta registrada antes de Instanciarla

Una forma de evitar que un error se produzca si tu DLL o Servidor COM no estuviara registrado en la PC de producción.

Suele suceder que si algún componente externo de tu aplicación no este registrado y al momento de querer instanciarlo via CREATEOBJECT(), arrojandonos el Error #1733 "No se encuentra la definición de clase ..."

El codigo para evitarlo es relativamente sencillo. Utilizando la clase Registry que está incluido en Visual FoxPro dentro de las Fox Foundation Classes (FFCs).

loRegistry = NEWOBJECT("Registry",HOME(1)+"ffc\registry.vcx")
IF loRegistry.Iskey("zipit.cgzipfiles")
   *** Hacer lo propio...
ELSE
    Messagebox("No está registrado el componente de Compresión")
END

Espero les sea de utilidad.

Espartaco Palma Martínez