anthoer e.g.
;; Get CLSID from ProgID
(defun GetClassID (ProgID)
(vl-registry-read
(strcat "HKEY_CLASSES_ROOT\\" progid "\\CLSID")
)
)
register activex services
;; Register hello ActiveX services,
;; if not already registered.
(defun Register (classid filename / server)
;; Register ActiveX server (dll/ocx)
;;
;; This requires RegSvr32.exe to be on the DOS path
(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")
)
)
(cond
((GetClassID classid))
((not (setq server (findfile filename)))
(alert (strcat " Error: Can't find file ("
filename
"),please put it in the 'support' folder!"
)
)
)
(t
(regserver server)
(or
(GetClassID classid)
(alert "Error: Can't register ActiveX Services, Please contact the author !")
)
)
)
)