delphi 获取元素相对屏幕的位置

var
doc:IHTMLDocument3;
ele2:IHTMLElement2;

p:TPoint;

begin
doc:=WebBrowser1.Document as IHTMLDocument3;
ele2:=doc.getElementById('captchaImg') as IHTMLElement2;这里元素类型也是很重要的
p.X:=ele2.getBoundingClientRect.left+20; //获取相对于浏览器的坐标

p.Y:=ele2.getBoundingClientRect.top+15;
p:=WebBrowser1.ClientToScreen(p);//转化为相对屏幕的坐标
SetCursorPos(p.X,p.Y);聚焦并点击
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;