Delphi 控制鼠标按坐标点击

本文整理自网络，侵删。

 

procedure DoIdle(XMsSec: Cardinal);
var
  ElapsedTime: Cardinal;
begin
  ElapsedTime := 0;
  while ElapsedTime < XMsSec do
  begin
    Application.ProcessMessages;
    Sleep(10);
    Inc(ElapsedTime, 10);
  end;

end;


procedure MoniClick(X, Y: Integer);
var
  LCount: Integer;
begin
  LCount := 0;
  while not SetCursorPos(X, Y) do
  begin
    Inc(LCount);
    if LCount > 100 then
      Exit;
  end;

  DoIdle(100);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0,0,0,GetMessageExtraInfo());
  DoIdle(100);
  mouse_event(MOUSEEVENTF_LEFTUP, 0,0,0,GetMessageExtraInfo());

end;

 

相关阅读 >>

Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

Delphi 提高unigui开发效率的两个方法

Delphi汇编级初探

Delphi 递归获取文件夹大小

Delphi firedac 下的 sqlite [2] - 第一个例子

关于Delphi下的三元运算符（三目运算）

Delphi 根据经纬度计算地球上两点之间的距离

Delphi xe 10 跨平台三层数据库应用教程

Delphi单元文件基本结构

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 控制鼠标按坐标点击