In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Saber si esta instalado un ActiveX

Foro de Xailer profesional en español
Responder
Avatar de Usuario
XeviCOMAS
Mensajes: 586
Registrado: Sab Mar 12, 2011 8:16 pm

Saber si esta instalado un ActiveX

Mensaje por XeviCOMAS »

¿Es posible saber si un Control ActiveX lo tenemos en nuestro SO???
De momento, lo que hago es "forzar un error"... pero no es muy "elegante"
que digamos ¿no???
WITH OBJECT TSigPlus():New( ::oPanel1 )
:Create()
TRY
:ImageFileFormat = 0
CATCH
MsgInfo( "Control ActiveX no Localizado" )
::Close()
END
END
Gracias.
Un Saludo,
Xevi.
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7696 (20121115) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
Un Saludo,
Xevi.
jlalin
Mensajes: 926
Registrado: Sab Dic 25, 2010 11:10 pm

Saber si esta instalado un ActiveX

Mensaje por jlalin »

Xevi,
mira la documentación de ISOCXInstalled().
IF ! ISOCXInstalled( nombre )
IF ! DLLRegisterServer( "c:pathnombre.ocx" )
MsgInfo( "error ..." )
ENDIF
ENDIF
Saludos,
José Lalí­n
Avatar de Usuario
XeviCOMAS
Mensajes: 586
Registrado: Sab Mar 12, 2011 8:16 pm

Saber si esta instalado un ActiveX

Mensaje por XeviCOMAS »

José,
PERFECTO!!! como no podia ser de otra manera.
Gracias.
Un Saludo,
Xevi.
"José Lalín" <dezac@corevia.com> ha escrit al missatge del grup de
discussió: 50a53712$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
mira la documentación de ISOCXInstalled().
IF ! ISOCXInstalled( nombre )
IF ! DLLRegisterServer( "c:pathnombre.ocx" )
MsgInfo( "error ..." )
ENDIF
ENDIF
Saludos,
José Lalín
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 7696 (20121115) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7696 (20121115) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
Un Saludo,
Xevi.
Responder