如何判断word文件已打开或已关闭？？？？在线等待！！！！！

Question

我在程序中，用一个窗口控制文档的保存和关闭（已经处理好了！）但现在碰到一个问题，如果直接按word中的关闭，则再执行窗口中的关闭，就会出错，因为它所要关闭的word已经关了！现在我要判断如果word已经关闭，则就不再执行word的关闭操作！！！如何判断word文件已打开或已关闭？？？？谢谢！！

Answer 1

var  h:hwnd;
begin
h := FindWindow(PChar('OpusApp'), nil);
if H > 0 then // 如果找到则发送自定义的消息并退出
 begin
关闭
end;