1
If File('控件全名')
    oll=Createobject('Wscript.shell')
    If oll.Run("REGSVR32 /S 控件全名",0,.T.)!=0  &&注册
        Messagebox('控件注册失败！',16,'信息提示')
    Endif
    *oll.RUN("REGSVR32 /U /S 控件全名",0,.T.)  &&解除注册
    Release oll
Else
    waitstr="缺少  控件全名  文件..."
    Wait waitstr Windows At Srows()/2,(Scols()-Len(waitstr))/2 Timeout 5
    Close All
    Clear All
    Return
Endif

2、
Declare Long DllRegisterServer In 控件全名
If dllregisterserver()<>0
    Messagebox("注册失败",48,"信息提示")
Endif

3、
Run /N regsvr32 控件全名