我们有一个线程,在创建时,按如下方式启动Word OLE实例:
MSWord:=CreateOleObject('Word.Application');
MSWord.Visible:=FALSE;
document:=MSWord.Documents.Open(Fdocfile);
thisActiveDocument:=MSWord.ActiveDocument;
thisActiveDocument.Save;
document.Close;
MSWord.Quit(FALSE);
我们在一个线程中执行此操作,以便我们还可以有一个进度条来通知用户幕后发生的事情。 (见Delphi OLE Automation freezing GUI)
然而,我们现在遇到一个问题,例如,如果打开的文档需要用户干预,例如受密码保护的文档,则一旦用户输入密码,线程就会终止,而线程Execute中的其余代码会立即终止。不跑。