webbrowse中显示依次多个word文件时，如何判断word已经被调用（防止启动多个word进程）？

Question

webbrowse中显示依次多个word文件时，1.如何判断word已经被调用（防止重复启动多个word进程）？2.如何判断当前word进程是webbrowse打开的还是其它程序打开的？如果是webbrowse打开的如何关闭进程？

Answer 1

try
   wApp:=GetActiveOleObject('word.Application');
  except
   wApp:=CreateOleObject('word.Application');
  end;楼主要得是不是这个?

Answer 2

我的程序是这样的，类似于电子书。左边是一个文件名列表，右边是一个webbrowse，选择左边不同的文件名列表，右边webbrowse显示不同的word文件内容。
程序有这样的问题：
1.如果webbrowse中已经打开一个word文件，再选择其它文件名列表，webbrowse就会报错。如果用ole方式没有这个问题，但ole由于自身的缺陷不能满足需要；
2.有的机器进行上述草纸时，又能正常打开，但会新开一个word进程，非常浪费资源；
3.退出程序时，有时候不能将调用的word进程关闭。4.其实我的需求也很简单，选择不同的word文档，用一个控件把其内容显示出来即可。但显示的word文档最好不能修改，文档一屏显示不全时，必须有滚动条。看大家有什么好办法？

Answer 3

webbrowse 可以显示word，有待吗没有给俄一分
至于防止重复
你可以h:=findWindow(nil,'word的标题')//一半就是那个打开的文件名你自己调试吧
然后postMessage(h,WM_CLOSE,0,0);
就关掉了哦！

Answer 4

当然是if h<>0 then post(h,);

Answer 5

谁有解决上述问题的代码，发一份给我瞧瞧。
[email protected]