Delphi - 鼠标移动模拟

Question

如何模拟鼠标移动（从点x，y到点a，b），理想情况下是10像素/秒？ 我发现SetCursorPos函数，但此函数无法正确移动光标。 我的目标是将光标移到TWebBrowser组件上并使用OCR读取提示（并查找我正在查找的文本）。

PS：我正在使用Delphi 7。