(defun EnableInfoCenter (Disable)
  (vl-load-com)
  (vl-registry-write
    (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\InfoCenter")
    "InfoCenterOn"
    (if Disable 0 1))
)
(defun C:ENABLEINFOCENTER () (EnableInfoCenter nil) (princ "\n    InfoCenter Enabled\n") (princ))
(defun C:DISABLEINFOCENTER () (EnableInfoCenter 'T) (princ "\n    InfoCenter Disabled\n") (princ))