Page 1 of 1

Listar ocx

PostPosted: Mon Feb 01, 2016 12:54 pm
by horacio
Colegas, hay alguna manera de obtener los ocx instalados en una máquina. Desde ya muy agradecido.

Saludos

Re: Listar ocx

PostPosted: Mon Feb 01, 2016 2:18 pm
by karinha

Re: Listar ocx

PostPosted: Mon Feb 01, 2016 2:25 pm
by karinha
Ejiste algo asi en Fivewin for xHarbour?

Code: Select all  Expand view


*** Estou verficando a dll msvbvm60
DECLARE LONG DllRegisterServer IN [MSVBVM60.DLL]
LOCAL M.OK
M.OK=.F.
IF DllRegisterServer() = 0
    messagebox('A DLL MSVBVM60 ESTA REGISTRADa !!!')
    M.OK=.T.
ELSE
    messagebox('NÃO ESTA REGISTRADO !!!')
 Run /N  regsvr32 nomedasuaDLL.dll
ENDIF
 

Re: Listar ocx

PostPosted: Mon Feb 01, 2016 4:03 pm
by Antonio Linares
Prueba asi:

REGISTERSERVER( "MSVBVM60.DLL" ) --> HRESULT

Re: Listar ocx

PostPosted: Mon Feb 01, 2016 4:04 pm
by Antonio Linares
Code: Select all  Expand view
LOCAL M.OK
M.OK=.F.
IF RegisterServer( "MSVBVM60.DLL" ) = 0
    messagebox('A DLL MSVBVM60 ESTA REGISTRADa !!!')
    M.OK=.T.
ELSE
    messagebox('NÃO ESTA REGISTRADO !!!')
 Run /N  regsvr32 nomedasuaDLL.dll
ENDIF

Re: Listar ocx

PostPosted: Mon Feb 01, 2016 9:53 pm
by horacio
Muchas gracias Karinha y Antonio. Pruebo y comento.

Saludos