Uno de los problemas más frecuentes con los
ActiveX es el determinar si estan registrados, está es una forma sencilla de
conocerlo.
Todos los OCX tienen un nombre (referencia) interno, esta puede ser el GUID o
el nombre de la clase, en este ejemplo utilizaremos el nombre de la clase. ¿Pero
como hacemos para conocer este nombre de un ActiveX?... Creamos el Objeto en un
formulario de VFP y luego en la propiedad OleClass estará el nombre que
necesitamos.
Algunos ejemplos:
- ?OcxRegistrado("mscomctllib.treectrl.2")
&& Treeview - ?OcxRegistrado("mscomctl2.monthview.2")
&& MontView - ?OcxRegistrado("mswinsock.winsock.1")
&& WinSock - ?OcxRegistrado("mscomctllib.progctrl.2")
&& ProgressBasr - ?OcxRegistrado("mscal.calendar.7")
&& Calendar - ?OcxRegistrado("agent.control.2")
&& Microsoft Agent - ?OcxRegistrado("msflexgridlib.msflexgrid.1")
&& MSFlexGrid - ?OcxRegistrado("mscomctl2.dtpicker.2")
&& Date Time Picker - ?OcxRegistrado("mschart20lib.mschart.2")
&& Ms Chart - ?OcxRegistrado("mscommlib.mscomm.1")
&& MsComm
Function OcxRegistrado(cClase)
-
Declare Integer RegOpenKey
In
Win32API ; -
Integer nHKey,
String
@cSubKey,
Integer
@nResult -
Declare Integer RegCloseKey
In
Win32API ; -
Integer nHKey
nPos = 0
lEsta = RegOpenKey(-2147483648, cClase, @nPos) = 0
- If
lEsta - RegCloseKey(nPos)
-
Endif
Return lEsta
Endfunc
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn

El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com