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

[复制链接]

龙龙仔

29 主题	1152 帖子	10 银币

顶梁支柱

Rank: 50

铜币: 1268

发消息

发表于 2002-12-16 08:42:00 | 显示全部楼层 |阅读模式

这是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."
   )
   )
)
  )
)

使用道具举报