Question

我在Delphi 2009中使用了Mouse_Event函数，但是Delphi文档说这个函数已被取代并改为使用SendInput。

Delphi SendInput文档定义了语法和参数，但没有示例，也不清楚如何使用该函数。我在网上浏览过，找不到任何好的Delphi示例。

具体来说，我试图模拟鼠标左键然后向上。目前我使用Mouse_Event执行此操作，如下所示：

    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

我如何使用SendInput？

执行此操作

跟进：

我最终保留了我的代码，就像@David建议的那样。

但是我给了@ opc0de答案，因为他确实回答了我的问题。但是，我不能保证这是正确的，因为我从未尝试过。

Answer 1

以下是如何模拟左键单击详情，请访问http://msdn.microsoft.com/en-us/library/ms646310(VS.85).aspx

var
eu: array [0..1] of TInput;
begin
  ZeroMemory(@eu,sizeof(eu));
  eu[0].Itype := INPUT_MOUSE;
  eu[0].mi.dwFlags :=MOUSEEVENTF_LEFTDOWN;
  eu[1].Itype := INPUT_MOUSE;
  eu[1].mi.dwFlags :=MOUSEEVENTF_LEFTUP;
  SendInput(2,eu[0],sizeof(TInput));
end;

这是模拟右键单击

var
eu: array [0..1] of TInput;
begin
  ZeroMemory(@eu,sizeof(eu));
  eu[0].Itype := INPUT_MOUSE;
  eu[0].mi.dwFlags :=MOUSEEVENTF_RIGHTDOWN;
  eu[1].Itype := INPUT_MOUSE;
  eu[1].mi.dwFlags :=MOUSEEVENTF_RIGHTUP;
  SendInput(2,eu[0],sizeof(TInput));
end;

如何在Delphi中使用SendInput？

1 个答案: