这是ObjectDBX ActiveX services的注册程序,在windows98下没有问题,但Xp却不行...

龙龙仔

这是ObjectDBX ActiveX services的注册程序,在windows98下没有问题,但windows Xp却不行,应如何在windows Xp下注册???

(vl-load-com)
(setq *OBJECTDBX* "ObjectDBX.AxDbDocument")
(defun REGSERVER (SERVER)
  (startapp
    "regsvr32.exe"
    (strcat "/s \"" SERVER "\"")
  )
)
;; Get CLSID from ProgID  
(defun GETCLASSID (PROGID)
  (vl-registry-read
    (strcat "HKEY_CLASSES_ROOT\\" PROGID "\\CLSID")
  )
)
;; Register ObjectDBX ActiveX services,   
;; if not already registered.  
(defun REGISTEROBJECTDBX (/ SERVER)
  (cond
    ((GETCLASSID *OBJECTDBX*))
    ((not (setq SERVER (findfile "AxDb15.dll")))
     (alert "Error: Can't locate ObjectDBX Library (AxDb15.dll)")
    )
    (t
     (REGSERVER SERVER)
     (or
       (GETCLASSID *OBJECTDBX*)
       (alert
         "Error: Failed to register ObjectDBX ActiveX services."
       )
     )
    )
  )
)

龙龙仔