如何简便快捷的判断系统是否安装了word以及EXCEL？(50分)

如何简便快捷的判断系统是否安装了word以及EXCEL？ 以次类推判断powerpoint等其他软件！

我个人使用了WORD控件，调用失败的消息可以确定是否安装。<br>你可以试试

不知道你是想写个程序判断还是直接在系统里判断，写程序判断也可以通过搜索注册表中是否有你想要查询的东西的键

方法1、尝试调用！如果调用触发异常的话肯定就是没有安装；<br>方法2、查询注册表！Office每个应用程序安装后都会在系统中留下“痕迹”，一查注册表便知是否安装了你关心的应用程序了。

function IsMSWordInstalled: Boolean;<br>var<br> &nbsp;MSWord: Variant;<br>begin<br> &nbsp;Result := True;<br> &nbsp;try<br> &nbsp; &nbsp;MSWord := GetActiveOleObject('Word.Application');<br> &nbsp;except<br> &nbsp; &nbsp;try<br> &nbsp; &nbsp; &nbsp;MSWord := CreateOLEObject('Word.Application');<br> &nbsp; &nbsp; &nbsp;if not VarIsEmpty(MSWord) then<br> &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp;MSWord.Quit;<br> &nbsp; &nbsp; &nbsp; &nbsp;MSWord := Unassigned;<br> &nbsp; &nbsp; &nbsp;end;<br> &nbsp; &nbsp;except<br> &nbsp; &nbsp; &nbsp;Result := False;<br> &nbsp; &nbsp;end;<br> &nbsp;end;<br>end;

举个例子吧！在Treeview中目录中有word 文件，若没有安装word ，提示！！(Excel同样方法）<br><br>Procedure Tform1.Proc_LoadReferenceFile();<br>var<br> &nbsp;myword : variant;<br>begin<br> &nbsp;if (Pos('.doc',Tree_Menu.Selected.Text)&gt;0) then<br> &nbsp;begin<br> &nbsp; &nbsp;try<br> &nbsp; &nbsp; &nbsp;myword:=createoleobject('word.application'); &nbsp; &nbsp; &nbsp; //判断是否安装了Word<br> &nbsp; &nbsp;except<br> &nbsp; &nbsp; &nbsp;Application.MessageBox( '您的系统没有安装word，不能查看此文件！', '系统提示！', MB_OK + MB_ICONWarning);<br> &nbsp; &nbsp; &nbsp;exit;<br> &nbsp; &nbsp;end;<br> &nbsp;end;<br>end;

多人接受答案了。