;; | ----------------------------------------------------------------------------
;; | MI_GetAcadLanguage 
;; | ----------------------------------------------------------------------------
;; | Function  : Returns the operating language of the currently running AutoCAD
;; | Arguments : (none)
;; | Return    :
;; | Updated   : June 26, 2009
;; | Comments  :
;; | e-mail    : rakesh.rao@4d-technologies.com 
;; | Web       : www.4d-technologies.com
;; | ----------------------------------------------------------------------------

(defun MI_GetAcadLanguage ()
(vl-load-com)
(vl-registry-read (strcat "HKEY_LOCAL_MACHINE\\" (vlax-product-key)) "Language")
)