delphi 用sendmessage向窗体发送关闭信息!但是窗体有关闭提示信息的对话框! 怎么才能把他关闭呢!

Posted 2023-03-09

那个关闭提示一样有窗口的 可以通过findwindow找到 并关闭
比如说 我的程序以下代码 运行在timer里 在监视浏览器弹出这个窗口 就自动关闭它

var
h:HWND;

h := FindWindow(nil, 'Internet Explorer 脚本错误');
if h>0 then
begin
PostMessage(h,WM_SYSCOMMAND, SC_CLOSE,0);
end;

如果这个弹出对话框时带yes or no 的选择的，那你可以看看他们的快捷按键
然后发送按键消息到这个对话框。关闭。 参考技术A 什么提示呢