SendInput Ctrl + V가 Outlook에서 작동하지 않는 이유는 무엇입니까?

Question

나는 + 이 SendInput을을 사용하여 V 조합 here을 사용으로 Ctrl 키를 전송하여 클립 보드의 텍스트를 붙여 시스템 전체 단축키를 Ctrl 키 + 시프트 + 사용자의 선택의 키를 사용하는 프로그램을 가지고 . 이것은 대부분의 프로그램에서 잘 작동합니다. 그러나 새로운 전자 메일의받는 사람 필드에있는 Outlook에서 "Press Item To Folder"Outlook 대화 상자가 나타나는데 이는 Ctrl + 입니다. Shift + V 키 조합입니다. 본문 필드에서는 아무 것도 발생하지 않습니다. 어떤 아이디어가 여기에서 발생하고 있습니까? 아래에서 재현 할 코드를 참조하십시오.

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; 

Answer 1

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; 

내 소프트웨어는 자동화가 실용적이지 않을 것이다, 그래서 텍스트 붙여 넣기를 할 수있는 프로그램을 작동하기위한 것입니다 자동화

Answer 2

Outlook에서 이와 같은 키 스트로크를 처리합니다. 유일한 해결 방법은 키보드 후크 (SetWindowsHookEx (WH_GETMESSAGE, ...))를 설치하는 것입니다. 후크 proc에서 FindControl()을 사용하여 Delphi 컨트롤을 찾을 수 있습니다. 그런 다음 해당 컨트롤에 메시지를 전달할지 여부를 결정하고 메시지를 WM_NULL로 다시 설정하거나 Outlook으로 전달할 수 있습니다.

왜 Outlook 개체 모델을 사용하여 텍스트를 수정하지 않습니까? Inspector.GetWordEditor는 Word의 Document 객체를 반환합니다.