delphi – 将Ctrl键发送到第三方应用程序

发布时间：2020-12-15 09:22:48 所属栏目：大数据来源：网络整理

导读：我正在使用导出文件的第三方应用程序.应用程序使用热键(Ctrl E)作为此功能的快捷方式. 如何将此组合键从我的Delphi XE应用程序发送到第三方应用程序？解决方法这是一个示例,显示如何使用 SendInput将Ctrl E发送到前台应用程序： var Inputs: array [0..3]

我正在使用导出文件的第三方应用程序.应用程序使用热键(Ctrl E)作为此功能的快捷方式.

如何将此组合键从我的Delphi XE应用程序发送到第三方应用程序？

解决方法

这是一个示例,显示如何使用 SendInput将Ctrl E发送到前台应用程序：

var
  Inputs: array [0..3] of TInput;
begin
  // press
  Inputs[0].Itype := INPUT_KEYBOARD;
  Inputs[0].ki.wVk := VK_CONTROL;
  Inputs[0].ki.dwFlags := 0;

  Inputs[1].Itype := INPUT_KEYBOARD;
  Inputs[1].ki.wVk := Ord('E');
  Inputs[1].ki.dwFlags := 0;

  // release
  Inputs[2].Itype := INPUT_KEYBOARD;
  Inputs[2].ki.wVk := Ord('E');
  Inputs[2].ki.dwFlags := KEYEVENTF_KEYUP;

  Inputs[3].Itype := INPUT_KEYBOARD;
  Inputs[3].ki.wVk := VK_CONTROL;
  Inputs[3].ki.dwFlags := KEYEVENTF_KEYUP;

  SendInput(Length(Inputs),Inputs[0],SizeOf(TInput));
end;

我还使用Steve Seymour稍微修改过的SendKeys.pas版本.它有不同的键盘布局的问题,是从1999年.无法在网络中的任何地方找到它.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!