FMX Windows 中的 SendInput 未释放 Shift 状态

发布于 2025-01-09 00:23:51 字数 729 浏览 0 评论 0原文

我正在尝试使用 sendInput 函数在 EditBox 中键入一个大写字母，按下 Shift 键，然后发送一个字符，然后按 KeyUp 键发送该字符并发送 Shift 键。

Char 正确地出现在 EditBox 中，但是，当我开始在 EditBox 中键入内容时，它会以大写字母键入所有内容。

看起来它没有正确释放 Shift 键。以下是我的代码：

input.Itype  := INPUT_KEYBOARD;
input.ki.wVk := VK_LSHIFT;
SendInput(1, input, SizeOf(input));

input.Itype  := INPUT_KEYBOARD;
input.ki.wVk := Word('T');
SendInput(1, input, SizeOf(input));

input.Itype      := INPUT_KEYBOARD;
input.ki.dwFlags := KEYEVENTF_KEYUP;
input.ki.wVk     := Word('T');
SendInput(1, input, SizeOf(input));

input.Itype      := INPUT_KEYBOARD;
input.ki.dwFlags := KEYEVENTF_KEYUP;
input.ki.wVk     := VK_LSHIFT;
SendInput(1, input, SizeOf(input));

任何帮助将不胜感激。

原文

I'm trying to type an uppercase letter in an EditBox using the sendInput function to press down Shift then sending a character then KeyUp for the character and for shift.

The Char comes in in the EditBox correctly, however, when I start typing in the EditBox it types everything in CAPS.

It seems that it does not release the Shift Key correctly.
Below is my code:

input.Itype  := INPUT_KEYBOARD;
input.ki.wVk := VK_LSHIFT;
SendInput(1, input, SizeOf(input));

input.Itype  := INPUT_KEYBOARD;
input.ki.wVk := Word('T');
SendInput(1, input, SizeOf(input));

input.Itype      := INPUT_KEYBOARD;
input.ki.dwFlags := KEYEVENTF_KEYUP;
input.ki.wVk     := Word('T');
SendInput(1, input, SizeOf(input));

input.Itype      := INPUT_KEYBOARD;
input.ki.dwFlags := KEYEVENTF_KEYUP;
input.ki.wVk     := VK_LSHIFT;
SendInput(1, input, SizeOf(input));

Any help would be greatly appreciated.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

逆蝶 2025-01-16 00:23:51

我无法重现该问题，在我的测试中，“Shift”键没有“粘住”，但由于您没有显示完整的过程，我无法调查/解释为什么您会经历您所做的事情。

但请注意：TInput 是一条记录，并且记录不会自动填充零。因此，您未分配值的字段可以具有任何值。不知道这是否可能是意外行为的原因。

无论如何，最好在数组中同时发送所有键盘事件：

procedure TForm47.Button1Click(Sender: TObject);
var
  Inputs: array of TInput;
begin
  Edit1.SetFocus;

  SetLength(Inputs, 4); // ref. comment above, mem automatically zeroed

  Inputs[0].iType := INPUT_KEYBOARD;
  Inputs[0].ki.wvk := VK_SHIFT;
  Inputs[0].ki.dwFlags := 0;

  Inputs[1].itype := INPUT_KEYBOARD;
  Inputs[1].ki.wvk := $54;
  Inputs[1].ki.dwFlags := 0;

  Inputs[2].iType := INPUT_KEYBOARD;
  Inputs[2].ki.wVk := $54;
  Inputs[2].ki.dwFlags := KEYEVENTF_KEYUP;

  Inputs[3].iType := INPUT_KEYBOARD;
  Inputs[3].ki.wVk := VK_SHIFT;
  Inputs[3].ki.dwFlags := KEYEVENTF_KEYUP;

  SendInput(4, Inputs[0], SizeOf(TInput));

end;

I can not reproduce the problem, in my test the "Shift" key doesn't "stick", but as you did not show the complete procedure, I can't investigate/explain why you experience what you do.

A note though: TInput is a record and records are not automatically zero filled. Thus, fields that you do not assign values to, can have whatever values. Don't know if this might be the reason for the unexpected behaviour.

Anyway, it is better to send all keyboard event at the same time, in an array:

procedure TForm47.Button1Click(Sender: TObject);
var
  Inputs: array of TInput;
begin
  Edit1.SetFocus;

  SetLength(Inputs, 4); // ref. comment above, mem automatically zeroed

  Inputs[0].iType := INPUT_KEYBOARD;
  Inputs[0].ki.wvk := VK_SHIFT;
  Inputs[0].ki.dwFlags := 0;

  Inputs[1].itype := INPUT_KEYBOARD;
  Inputs[1].ki.wvk := $54;
  Inputs[1].ki.dwFlags := 0;

  Inputs[2].iType := INPUT_KEYBOARD;
  Inputs[2].ki.wVk := $54;
  Inputs[2].ki.dwFlags := KEYEVENTF_KEYUP;

  Inputs[3].iType := INPUT_KEYBOARD;
  Inputs[3].ki.wVk := VK_SHIFT;
  Inputs[3].ki.dwFlags := KEYEVENTF_KEYUP;

  SendInput(4, Inputs[0], SizeOf(TInput));

end;

回复收藏 0 原文

~没有更多了~