如何在程序里使用代码关闭由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;