[讨论]判断计算机是否安装了Excel-->mccad转移
本帖最后由 作者 于 2002-4-13 12:56:45 编辑;;;讨论一下，以下函数能否满足各种情况的判断
;;;==========================================================;
;;;判断计算机是否安装了Excel,是返回T,否返回nil ;
;;;==========================================================;
(defun myvl_ExcelIsOk ()
(Or
(vl-registry-read ;Excel 97
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\8.0\\Excel\\InstallRoot"
"Path"
)
(vl-registry-read ;Excel 2000
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\9.0\\Excel\\InstallRoot"
"Path"
)
(vl-registry-read ;Excel XP
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\10.0\\Excel\\InstallRoot"
"Path"
)
(vl-registry-read ;Excel 未来版本
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\11.0\\Excel\\InstallRoot"
"Path"
)
(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编辑过]
这个问题大家给看看。
-
页:
[1]