有没有办法从Word.Application OLE对象获取窗口标题？我想用它来尝试使用FindWindow来获取窗口。
我正在创建一个OLE对象并添加一个现有文档，如下所示：
App := CreateOLEObject('Word.Application');
App.Visible := True;
App.Activate;
Doc := App.Documents.Open('File.doc');
此时，标题值如下：
App.Caption => 'Microsoft Word'
Doc.ActiveWindow.Caption => 'File.doc [Compatibility Mode]'
但是，窗口标题实际上是File.doc [Compatibility Mode] - Microsoft Word。
有没有办法从OLE对象获取此窗口标题（似乎没有更好的方法来获取HWND本身而不使用FindWindow）？我怀疑假设窗口标题始终为<doc caption> - <app caption>是安全的。
我想使用FindWindow函数来获取窗口的句柄，以便能够以更安全的方式将它带到前台（请参阅OLE Automation to launch MS Word and bring to front）标题。
修改
以下是使用http://support.microsoft.com/kb/258511
中描述的解决方法的修复方法App := CreateOLEObject('Word.Application');
// get the handle
TempTitle := 'Temp - ' + IntToStr(Random(1000000));
App.Caption := TempTitle;
Handle := FindWindow('OpusApp', PWideChar(TempTitle));
App.Caption := EmptyStr;
App.Visible := True;
App.Activate;
Doc := App.Documents.Open('File.doc');
// bring to front
SetForegroundWindow(Handle);