如何在程序里使用代码关闭由MessageBox()弹出的对话框？

 方法：
  用FindWindow找到窗口的hWnd，（可以通过窗口类名或标题），然后PostMessage(hWnd,   WM_CLOSE,   0,   0);

  Windows API 提供了函数FindWindow，可以让应用程序在启动时检查自己或其他应用程序是否已经存在。该函数在Delphi中的语法为：
　　function FindWindow(lpClassName: PChar, lpWindowName: PChar): HWND;
　　其中，参数lpCalssName 是要查找的窗口的类的名称，参数lpWindowName是要查找的窗口的标题(Caption)。 如果找到了相应的窗口实例，将返回一个非0 的该窗口句柄的整型值，否则返回0 。

　　例如：

var 　　 vhwnd :HWND; 　　vhwnd := FindWindow(nil,'对话框的标题'); 　　if vhwnd<> 0 then begin 　　 PostMessage(hWnd, WM_CLOSE, 0, 0); 　　end;