2

我一直在尝试将击键发送到 Delphi 中的记事本窗口。这是我到目前为止的代码：

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  windows,
  messages;

var
  H : HWND;

begin
  H := FindWindowA(NIL, 'Untitled - Notepad');
  if H <> 0 then begin
    SendMessage(H, WM_KEYDOWN, VK_CONTROL, 1);
    SendMessage(H, WM_KEYDOWN, MapVirtualKey(ord('v'), 0), 1);
    SendMessage(H, WM_KEYUP, MapVirtualKey(ord('v'), 0), 1);
    SendMessage(H, WM_KEYUP, VK_CONTROL, 1);
  end;
end.

我还发现了这个例子：

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  windows,
  messages;

var
  H : HWND;
  I : Integer;
  s : String;

begin
  h := FindWindowA(NIL, 'Untitled - Notepad');
  if h <> 0 then
  begin
    h := FindWindowEx(h, 0, 'Edit', nil);
    s := 'Hello';
    for i := 1 to Length(s) do
    SendMessage(h, WM_CHAR, Word(s[i]), 0);
    PostMessage(h, WM_KEYDOWN, VK_RETURN, 0);
    PostMessage(h, WM_KEYDOWN, VK_SPACE, 0);
  end;
end.

如何模拟/发送 CTRL+V 到父窗口，以便它也可以与其他应用程序一起使用？并非每个应用程序都具有与记事本相同的类名和控件。

4

1 回答 1

4

如果将 SendMessage() 切换为 PostMessage()，它将起作用：

uses
  Winapi.Windows, Winapi.Messages;

procedure PasteTo(const AHWND: HWND);
begin
  PostMessage(AHWND, WM_PASTE, 0, 0);
end;

var
  notepad_hwnd, notepad_edit_hwnd: HWND;

begin
  notepad_hwnd := FindWindow(nil, 'Untitled - Notepad');
  if notepad_hwnd <> 0 then
  begin
    notepad_edit_hwnd := FindWindowEx(notepad_hwnd, 0, 'Edit', nil);
    if notepad_edit_hwnd <> 0 then
      PasteTo(notepad_edit_hwnd);
  end;
end.

根据这个线程，我相信您不能使用 SendMessage()/PostMessage() 来发送键修饰符的状态（在这种情况下为 CTRL），并且您唯一的选择是使用 SendInput()，但这仅适用于窗口目前有重点。

于 2013-06-08T19:11:03.790 回答