Function

Summary

Externally registers all class factories known to Lisp.

Package

com

Signature

register-server &key clsctx

Arguments

clsctx

The CLSCTX in which to register the class factory.

Description

The register-server function updates the Windows registry to contain the appropriate keys for all the class factories registered in the current Lisp image. For Automation components, the type libraries are registered as well. During development, the type library will be found whereever the system definition specified, but after using Lispworks delivery it must be located in the directory containing the application's executable or DLL.

This function should be called when an application is installed, usually by detecting the /RegServer command line argument.

When running on 64-bit Windows, 32-bit LispWorks updates the 32-bit registry view and 64-bit LispWorks updates the 64-bit registry view. LispWorks does not change the registry reflection settings.

Example

(defun start-up-function ()

  (cond ((member "/RegServer"

                 system:*line-arguments-list*

                 :test 'equalp)

         (register-server))

        ((member "/UnRegServer"

                 system:*line-arguments-list*

                 :test 'equalp)

         (unregister-server))

        (t

         (co-initialize)

         (start-factories)

         (start-application-main-loop)))

  (quit))

See also

unregister-server
register-class-factory-entry
start-factories
stop-factories