自动关闭网页提交后的弹出窗口

procedure TForm1.Timer1Timer(Sender: TObject);
var
    H,hc: HWND;
begin
   h := findwindow(nil, 'Microsoft Internet Explorer');
  if H > 0 then
    begin
        hc := FindWindowEx(h,0,'Button','确定');
        SendMessage(hc, BM_CLICK, 0, 0);
    end;
end;