REGISTRAR Y DESREGISTRAR UN ARCHIVO OCX O DLL

Excelente cuando distribuimos aplicaciones.

DECLARE INTEGER DLLSelfRegister IN "Vb6stkit.DLL" ;
  STRING lpDllName

*-- Esta es la ruta donde esta el archivo
nombredll="s:/sistemas/ocx/hwnd.ocx"

liRet = DLLSelfRegister(NombreDll)

IF liRet = 0 Then
  SelfRegisterDLL = .T.
  MESSAGEBOX ("Registrado ocx")
ELSE
  SelfRegisterDLL = .F.
  MESSAGEBOX ("Error- No Registrado ocx")
ENDIF

Jorge Mota