打开的Powerpoint',我在另一个程序里关闭它时，他要求保存文档，我只想不保存就关闭，如何做呢？下面是我的代码

Question

var
  Temp:HWND;
begin
  temp:=FindWindow(nil,pchar('Microsoft Powerpoint'));
  sendmessage(temp,WM_CLOSE,0,0);
end;

Answer 1

一、根据提示是否保存的窗口的标题获得该窗口句柄；如果不行则可以尝试：
用Delphi附带的WinSight工具获取窗口原子编号（整数），再用FindWindow获取句柄；
二、根据窗口句柄和按钮标题（就是“否”按钮）用FindWindowEx获取按钮句柄；
三、最后向该按钮发送一个BM_CLICK消息：
PostMessage(ButtonHandle, BM_CLICK, 0, 0);简单地说，就是模拟鼠标按了一下“否”按钮（即不保存就退出）。