Listar ocx

[horacio]

Colegas, hay alguna manera de obtener los ocx instalados en una máquina. Desde ya muy agradecido.

Saludos

[karinha]

Algo asi?

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=14213&p=73288&hilit=ReportManX%2F3+DISP_E_MEMBERNOTFOUND%3A+EXECUTE#p73288

[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
 

[Antonio Linares]

Prueba asi:

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

[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

[horacio]

Muchas gracias Karinha y Antonio. Pruebo y comento.

Saludos