关于注册ocx文件

数据库学习笔记 2009-4-16 16:42

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 控件全名

标签集:TAGS:

回复Comments() 点击Count()

回复Comments

{commentauthor}

{commenttime}

{commentnum}

{commentcontent}

作者:

{commentrecontent}