怎么得到某个程序的安装路径?

Question

我想在代码里边得到某个应用程序的程序,比如autoCAD?如何用代码实现?

Answer 1

如果说通用的方法，那就是在整个硬盘上遍历那个程序的exe文件，楼主当然不欣赏这种方法。可是如果不这样，对于不同的应用程序就要采用不同的方法，比如访问注册表，不是每个程序都会在注册表中记录自己的安装目录，就算有记录，位置也各不相同，就像你说的autocad，不同的版本在注册表中的键值也是相差很大的，2000版本的好像类似于HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R15.0\ACAD-1:804\Profiles\<<未命名配置>>\Dialogs\Appload\Startup这么一个位置，其他的就不清楚了。

Answer 2

可不可以通过读注册表获得,我知道ProgID,怎样才能知道对应这个progID的在硬盘上面的路径?

Answer 3

set oApp=CreateObject("AutoCAD.Application")
用oApp获得路径

Answer 4

我想在代码里边得到某个应用程序的程序,比如autoCAD?如何用代码实现?
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
如果你说的那个应用程序正在运行就不必历遍硬盘。

Answer 5

Hassle()的方法倒简单，word对象和excel对象都有一个path属性，估计autocad对象也有，那就简单了：
set oApp=CreateObject("AutoCAD.Application")
msgbox oApp.Path