OleContainer操作Word，关闭Word后不知道如何判别Word已被关闭？

[wuyongxin98]

OleContainer操作Word，关闭Word后不知道如何判别Word已被关闭。我想一旦识别WORD已被关闭，就把OleContainer中的数据存入数据库，但OleContainer好像没有事件能识别对象关闭已被关闭！请高手指点啊.

[macchen1224]

你好，可以使用GetActiveOleObject('word.application')，如果有取得回傳表示還有word仍被開啟中，謝謝。

[hongqi162]

var
  h: THandle;
begin
  h:= findwindow(nil,'New Microsoft Office Word 文档.docx'+' - Microsoft Word');//word文件名+' - Microsoft Word'
  if h > 0 then showmessage('das');
end;

建议使用一个线程或者timer然后使用findwindow来查找是否关闭