思路： 用FindWindow找到窗口的hWnd，（可以通过窗口类名或标题），然后PostMessage(hWnd, WM_CLOSE, 0, 0);
Windows API 提供了函数FindWindow，可以让应用程序在启动时检查自己或其他应用程序是否已经存在。该函数在Delphi中的语法为：
function FindWindow(lpClassName: PChar, lpWindowName: PChar): HWND;
其中，参数lpCalssName 是要查找的窗口的类的名称，参数lpWindowName是要查找的窗口的标题(Caption)。 如果找到了相应的窗口实例，将返回一个非0 的该窗口句柄的整型值，否则返回0 。
例如：
//弹出模态对话框
procedure TForm1.Button1Click(Sender: TObject);
begin
application.MessageBox(\'It should be closed in 5 second!\',\'My Title\');
end;
//因为对话框是模态的，所以为简单起见，放在一个定时器中关闭它（定时器的周期为5秒）
procedure TForm1.Timer1Timer(Sender: TObject);
var
ahWnd:hWnd;
begin
ahwnd:=findWindow(nil,\'My Title\');
if ahwnd <> 0 then
PostMessage(ahWnd,WM_CLOSE, 0, 0);
end;
责任编辑：小草
