关闭

Delphi_Webbrowser中自动点击Alert弹出窗口中的按钮

2372人阅读 评论(0) 收藏 举报
分类:
function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall;
var
  hChild: hwnd;
begin
  Result := True;
  if GetParent(H) = HMainForm then begin
    hChild := FindWindowEx(H, 0, PChar('Button'), PChar('OK'));
    if hChild > 0 then SendMessage(hChild, BM_Click, 0, 0);
  end;

end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  EnumWindows(@CallBackProc, Self.Handle);
end;

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:570939次
    • 积分:7515
    • 等级:
    • 排名:第2979名
    • 原创:144篇
    • 转载:174篇
    • 译文:1篇
    • 评论:55条
    文章分类
    最新评论