delphi编程操作word的问题，在打开一个word文档时，让word程序得到焦点，在关闭已更改的word文档时，如何截获word关闭时提示是否保存用户选择取

Question

我用的TWordApplication和TWordDocument控件打开word文档，代码如下：
    Try
      WordApplication1.Connect;
    Except
      WordApplication1.Disconnect;
      showmessage('请安装Word 软件！');
      Abort;
    end;
    WordApplication1.Visible:=True;
    FileName:=sDocumentPath+sDocument;
    ConfirmConversions:=true;
    ReadOnly:=false;
    AddToRecentFiles:=true;
    PasswordDocument:=EmptyParam;
    PasswordTemplate:=EmptyParam;
    Revert:=false;
    WritePasswordDocument:=EmptyParam;
    WritePasswordTemplate:=EmptyParam;
    Format:=wdOpenFormatAuto;
    Encoding:=0;
    Visible:=true;
    ItemIndex:=1;
    WordApplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
      PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate,
      Format, Encoding, Visible);
    WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
问题1：以上代码执行时，当打开一个word文档时，word程序不是当前窗口，我现在想让它得到焦点，成为系统的当前窗口。
问题2：当我关闭已作了更改的word文档时（（在程序外面）直接关闭word程序时，点word右上的X），word程序会提示我们是否保存，有三个选择：是、否、取消，如果我选择否和取消，我如何截获windows消息，判断我的选择，并进行其他处理。delphi编程word

Answer 1

问题一，获取到窗体句柄，将窗体切换到最前面，见如下例子：//静态加载 SwitchToThisWindow
procedure SwitchToThisWindow(hWnd:Thandle;fAltTab:boolean);stdcall;external 'User32.dll';procedure TForm1.Button1Click(Sender: TObject);
var
h:thandle;
begin
h:=findwindow(nil,'test');
SwitchToThisWindow(h,true);
end;

Answer 2

感谢faunaq 大哥，问题1解决了，问题2能详细说下吗