[讨论]判断计算机是否安装了Excel-->mccad转移

河伯

;;;讨论一下，以下函数能否满足各种情况的判断

;;;==========================================================;
;;;判断计算机是否安装了Excel,是返回T,否返回nil                 ;
;;;==========================================================;
(defun myvl_ExcelIsOk ()
  (Or
    (vl-registry-read                        ;Excel 97
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\8.0\\Excel\\InstallRoot"
      "ath"
    )
    (vl-registry-read                        ;Excel 2000
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\9.0\\Excel\\InstallRoot"
      "ath"
    )
    (vl-registry-read                        ;Excel XP
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\10.0\\Excel\\InstallRoot"
      "ath"
    )
    (vl-registry-read                        ;Excel 未来版本
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\11.0\\Excel\\InstallRoot"
      "ath"
    )
    (vl-registry-read                        ;Excel 97
      "HKEY_CLASSES_ROOT\\TypeLib\\{00020813-0000-0000-C000-000000000046}\\1.2\\0\\win32"
      ""
    )
    (vl-registry-read                        ;Excel 2000
      "HKEY_CLASSES_ROOT\\TypeLib\\{00020813-0000-0000-C000-000000000046}\\1.3\\0\\win32"
      ""
    )
    (vl-registry-read                        ;Excel XP
      "HKEY_CLASSES_ROOT\\TypeLib\\{00020813-0000-0000-C000-000000000046}\\1.4\\0\\win32"
      ""
    )
    (vl-registry-read                        ;Excel 未来版本
      "HKEY_CLASSES_ROOT\\TypeLib\\{00020813-0000-0000-C000-000000000046}\\1.5\\0\\win32"
      ""
    )
  )
)

[此贴子已经被作者于2002-4-13 12:56:09编辑过]

河伯

-