delphi - 如何在Delphi中模拟Ctrl+c

Question

有没有办法在delphi中模拟Ctrl+C命令？问题是我希望从另一个应用程序中复制文本，例如选择目标文本后从记事本复制文本。

Answer 1

(首先我要说的是，使用剪贴板进行进程间通信是一个坏主意。剪贴板属于用户，您的应用程序只能在用户选择这样做时才使用它。)

如果您在记事本中选择了文本，这会将内容放入 Delphi 表单上的 TMemo 中(仅使用 TMemo 和 TButton >; 将 ClipBrd 添加到您的 use 子句中):

procedure TForm1.Button1Click(Sender: TObject);
var
  NpWnd, NpEdit: HWnd;
begin
  Memo1.Clear;
  NpWnd := FindWindow('Notepad', nil);
  if NpWnd <> 0 then
  begin
    NpEdit := FindWindowEx(NpWnd, 0, 'Edit', nil);
    if NpEdit <> 0 then
    begin
      SendMessage(NpEdit, WM_COPY, 0, 0);
      Memo1.Lines.Text := Clipboard.AsText;
    end;
  end;
end;

结果示例:

如果文本未被首先选择，则先向其发送WM_SETSEL消息。传递 0 和“-1”值会选择所有文本。

procedure TForm1.Button1Click(Sender: TObject);
var
  NpWnd, NpEdit: HWnd;
begin
  Memo1.Clear;
  NpWnd := FindWindow('Notepad', nil);
  if NpWnd <> 0 then
  begin
    NpEdit := FindWindowEx(NpWnd, 0, 'Edit', nil);
    if NpEdit <> 0 then
    begin
      SendMessage(NpEdit, EM_SETSEL, 0, -1);
      SendMessage(NpEdit, WM_COPY, 0, 0);
      Memo1.Lines.Text := Clipboard.AsText;
    end;
  end;
end;