以编程方式模拟用户输入的简单方法是什么？

Question

我有一个由于错误情况而弹出的对话框。我希望对话框保持打开状态至少 30 秒，并在收到最后一次用户输入（鼠标或键盘）后关闭 30 秒。

我可以通过检查 GetLastInputInfo 返回的值并在超过 30 秒前关闭对话框来实现此目的，但如果在用户 30 秒内没有使用鼠标或键盘时弹出对话框，则 GetLastInputInfo 测试通过立即，对话框立即再次关闭。我可以使用另一个计时器来完成此操作，但我认为在对话框打开之前模拟鼠标移动一点或发出（无害的）按键会更简单。它还可能具有将系统踢出屏幕保护程序的优点。

实现此目的最简单的 1 行 Delphi 代码片段是什么？

Answer 1

最简单的是使用 < code>keybd_event 函数（一行代码）

keybd_event(Ord('A'), 0, 0, 0);

也可以使用 SendInput< /a> 功能，但需要多行:)

Var
  pInputs : TInput;
begin
    pInputs.Itype := INPUT_KEYBOARD;
    pInputs.ki.wVk := Ord('A');
    pInputs.ki.dwFlags := KEYEVENTF_KEYUP;
    SendInput(1, pInputs, SizeOf(pInputs));
end;

Answer 2

使用 keybd_event 输入多个字节字符：

procedure InsertText(text:string);
var i:integer;
    j:integer;
    ch:byte;
    str:string;
begin
  i:=1;
  while i<=Length(text) do
  begin
    ch:=byte(text[i]);
    if Windows.IsDBCSLeadByte(ch) then
       begin
         Inc(i);
         str:=inttostr(MakeWord(byte(text[i]), ch));
         keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);
         j:=1;
         while j<=Length(str) do
         begin
               keybd_event(96+strtoint(str[j]), MapVirtualKey(96+strtoint(str[j]), 0), 0, 0);
               keybd_event(96+strtoint(str[j]), MapVirtualKey(96+strtoint(str[j]), 0), 2, 0);
               j:=j+1;
         end;
         keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);
       end
    else begin
           keybd_event(VkKeyScan(text[i]),0,0,0);
           keybd_event(VkKeyScan(text[i]),0,2,0);
         end;
    Inc(i);
  end;
end;

Answer 3

https://github.com/WladiD/SendInputHelper 作者：Waldemar Derr 先生。

简单和通用，选择2。

例子：

uses
  ..., SendInputHelper;

procedure TForm1.Button1Click(Sender: TObject);
var
  SIH: TSendInputHelper;
begin
  SIH := TSendInputHelper.Create;
  try
    // Start command shell
    SIH.AddShortCut([ssWin], 'r'); // Win+R
    SIH.AddDelay(100);
    SIH.AddText('cmd', True); // Second parameter True means AppendReturn
    SIH.AddDelay(500);

    SIH.AddText('ping google.de', True); // Perform a ping.

    SIH.Flush; // Isn't it easy?
  finally
    SIH.Free;
  end;
end;