怎么用PostMessage关闭一个messagebox的窗口？(50分)

怎么关闭啊？

<br>你可以用SPY++查一下。<br><br>看看行不行。<br>PostMessage(FindWindow('#32770',nil),WM_CLOSE,0,0);<br>

不行的说，sigh

<br>//用以下程序试试看<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; Timer1.Interval := 3000;//三秒后关闭<br>&nbsp; Timer1.Enabled := true;<br>&nbsp; MessageBox(handle,'测试','错误',MB_ICONERROR+MB_OK);<br>end;<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>begin<br>&nbsp; PostMessage(FindWindow('#32770',nil),WM_CLOSE,0,0);<br>&nbsp; Timer1.Enabled := false;<br>end;<br>

PostMessage(FindWindow(nil,'你的messagebox的标题caption'),WM_CLOSE,0,0);

多人接受答案了。