delphi 用sendmessage向窗体发送关闭信息!但是窗体有关闭提示信息的对话框! 怎么才能把他关闭呢!
2个回答
展开全部
那个关闭提示一样有窗口的 可以通过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 的选择的,那你可以看看他们的快捷按键
然后发送按键消息到这个对话框。关闭。
比如说 我的程序以下代码 运行在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 的选择的,那你可以看看他们的快捷按键
然后发送按键消息到这个对话框。关闭。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询