怎么判断软件中是否有弹出对话框

如何判断软件中是否有弹出对话框？
请教如何监视 自己软件中是否有弹出对话框，如果有则强行关闭？

当前的form名是fMain，弹出提示是该程序用showMessage产生的，监视的代码准备放在timer中，不影响当前程序的使用。
[解决办法]
简单点，用FindWindow，查找是ShowMessage的窗口Handle，然后发消息关闭。