;; | ----------------------------------------------------------------------------
;; | MI_DelRegistryTree
;; | ----------------------------------------------------------------------------
;; | Function : Deletes an entire registry tree starting from the specified path
;; |            and under it.
;; | Argument : 'path' - Specifies the path from which to delete the registry
;; |             entries
;; | Returns  : None
;; | Updated  : November 21, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_DelRegistryTree ( path / subKeys Key Keys )

(if (setq subKeys (vl-registry-descendents path nil))
(progn
	(setq Keys (vl-registry-descendents path T))
	(if Keys
	(progn
		(foreach Key Keys
			(vl-registry-delete path Key)
		)
	))

	(foreach Key subKeys
		(MI_DelRegistryTree (strcat path "\\" key))
	)
	(vl-registry-delete path)
)
(progn
	(setq Keys (vl-registry-descendents path T))
	(if Keys
	(progn
		(foreach Key Keys
			(vl-registry-delete path Key)
		)
	))
	(vl-registry-delete path)
))
)