Muchas gracias por vuestra ayuda.
|
|
#2 (permalink) |
![]() Fecha de Ingreso: enero-2008
Ubicación: Madrid
Mensajes: 709
|
Re: Comprovar la instalación de una OCX
Una forma fácil de hacerlo es buscar en el directorio del sistema la OCX, si la encuentra es que (normalmente) estará registrada y si no la encuentra es que seguro que no estará registrada.
Un saludo. |
|
|
|
|
|
#3 (permalink) |
![]() Fecha de Ingreso: febrero-2007
Mensajes: 408
|
Re: Comprovar la instalación de una OCX
Hola,en una parte del registro de windows se guardan las CLSID de las ocx y dll registradas con el nombre,tendrias que consultar ahi...
saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein |
|
|
|
|
|
#5 (permalink) |
![]() Fecha de Ingreso: febrero-2007
Mensajes: 408
|
Re: Comprovar la instalación de una OCX
basicamente podes hacerlo sabiendo si la clase esta registrada en el sistema,tenes que pasarle el nombre de clase del ocx o programa,algo asi:
Código:
en este ejemplo te muetra si esta registrado el Treeview....algunos nombres de clases mas:Private Sub Form_Load()
If Not EstaRegistrado("mscomctllib.treectrl.2") Then
MsgBox "No esta registrado", vbExclamation
Else
MsgBox "Esta registrado", vbInformation
End If
End Sub
Public Function EstaRegistrado(ByVal Clase As String) As Boolean
On Error GoTo NoRegistrado
Dim obj As Object
Set obj = CreateObject(Clase)
EstaRegistrado = True
Exit Function
NoRegistrado:
End Function
Código:
para saber estos nombres de clase de los controles podes usar el programa que viene con visual basic llamado OLE VIEW,ahi estan los nombres de clases....excel.application es el excel... Word.Application es el word mscomctl2.monthview.2, MontView mscomctl2.dtpicker.2, Date Time Picker mscomctllib.treectrl.2, Treeview mschart20lib.mschart.2, Ms Chart mscommlib.mscomm.1, MsComm saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein Última edición por seba123neo; 27-abr-2008 a las 15:51. |
|
|
|