我有一个程序,它使用系统范围的热键Ctrl+Shift+用户选择的键将文本粘贴到剪贴板中通过使用使用的 SendInput 发送 Ctrl+V 组合 here 。这在大多数程序中都可以正常工作。但在 Outlook 中新电子邮件的“收件人”字段中,我尝试的每个键最终都会弹出“将项目移至文件夹”Outlook 对话框,该对话框应该是 Ctrl+Shift+V 组合键。在 body 领域什么也没有发生。你知道这里发生了什么吗?请参阅下面的重现代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
If not RegisterHotkey( Handle, 1, MOD_SHIFT or MOD_CONTROL, Ord('P') ) Then
ShowMessage('Error');
end;
Procedure TForm1.WMHotkey( Var msg: TWMHotkey );
var
KeyInputs: array of TInput;
procedure KeybdInput(VKey: Byte; Flags: DWORD);
begin
SetLength(KeyInputs, Length(KeyInputs)+1);
KeyInputs[high(KeyInputs)].Itype := INPUT_KEYBOARD;
with KeyInputs[high(KeyInputs)].ki do
begin
wVk := VKey;
wScan := MapVirtualKey(wVk, 0);
dwFlags := Flags;
end;
end;
Begin
If (msg.HotKey > 0) And (msg.HotKey < 2) Then
Begin
Clipboard.AsText:= 'Some text';
KeybdInput(VK_CONTROL, 0); // Ctrl
KeybdInput(Ord('V'), 0);
KeybdInput(Ord('V'), KEYEVENTF_KEYUP);
KeybdInput(VK_CONTROL, KEYEVENTF_KEYUP); // Ctrl
SendInput(Length(KeyInputs), KeyInputs[0], SizeOf(KeyInputs[0]));
end
End;
最佳答案
SendInput 不会重置键盘的当前状态。因此 Outlook 会看到热键的 Ctrl+Shift。您必须模拟释放 Shift 键。
因此,如果我执行以下操作,它就可以在 Outlook 中运行:
var
input: TInput;
begin
// This releases the shift Key:
input.Itype := INPUT_KEYBOARD;
input.ki.wVk := VK_SHIFT;
input.ki.wScan := 0;
input.ki.dwFlags := KEYEVENTF_KEYUP;
input.ki.time := 0;
input.ki.dwExtraInfo := 0;
SendInput(1, input, sizeof(input));
// Send 'V'
input.Itype := INPUT_KEYBOARD;
input.ki.wVk := Ord('V');
input.ki.wScan := Ord('V');
input.ki.dwFlags := 0;
input.ki.time := 0;
input.ki.dwExtraInfo := 0;
SendInput(1, input, sizeof(input));
input.ki.dwFlags := KEYEVENTF_KEYUP;
SendInput(1, input, sizeof(input));
end;
关于delphi - 为什么 SendInput Ctrl+V 在 Outlook 中不起作用?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23850012/