怎样判断本机是否安装了Word?(30分)

  • 主题发起人 主题发起人 jianghui
  • 开始时间 开始时间
J

jianghui

Unregistered / Unconfirmed
GUEST, unregistred user!
我用sql server保存了一份word文档,想将其读入OleContainer显示并编辑,我想请教各位大虾,
在调用Olecontainer.run之前怎样判断本机是否安装了Word?
我是将sql server的内容用OleCreateObjectfromfile读入olecontainer,然后调用Olecontainer.run。
 
注册表可以吗?
 
可以到注册表里找找看。
 
function serverrun:boolean;
var
classid:Tguid;
unknown:Iunknown;
begin
classid:=progidtoclassid('application.word');
if succeeded(getactiveobject(classid,nil,unknown))then
serverrun:=true
else
serverrun:=false;
'application.word'可能是这个字符串,你可以查有关稳当
 
到[HKEY_LOCAL_MACHINE/SOFTWARE/MICROSOFT/OFFICE]下查找有关Word的信息。
 
try
wordapplication.connect;
except
showmessage('word没有安装');
end;
即可
 
接受答案了.
 
后退
顶部