gpt4 book ai didi

delphi - 将 Ctrl+Key 发送到第三方应用程序

转载 作者:行者123 更新时间:2023-12-03 15:22:34 25 4
gpt4 key购买 nike

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

如何将这个组合键从我的 Delphi XE 应用程序发送到第 3 方应用程序?

最佳答案

这里是一个示例,展示如何使用 SendInputCtrl+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 年的。在网络上找不到它。

关于delphi - 将 Ctrl+Key 发送到第三方应用程序,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8429253/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com