以下代码咋发送没效果？

冥界3大法王

[Delphi] 纯文本查看 复制代码

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;

type
  TForm5 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
  h: THandle;
begin
  h := FindWindow(nil, PChar('管理员: C:\Windows\system32\cmd.exe'));
  if h <> 0 then
  begin
    showmessage('找到句柄');
    SetForegroundWindow(h);
    PostMessage(h, WM_KEYDOWN, VK_RETURN, 0);        //发达回车到cmd窗口成功！
//    SendMessage(h, WM_SETTEXT, Length(Memo1.Text), Integer(PChar(Memo1.Text)));
    PostMessage(h, WM_CHAR, Length(Memo1.Text), Integer(PChar(Memo1.Text)));     //假设memo1中的内容是dir /w
  end;
end;

end.

yingwl

冥界3大法王

@yingwl

[Asm] 纯文本查看 复制代码

procedure TForm1.Button2Click(Sender: TObject);        //连接安卓模拟器
var
  a1: string;
  h: THandle;
begin
//a1:='cmd.exe /c dir /w & pause';
  a1 := adb路径 + ' devices';
  Clipboard.AsText := a1;
  h := FindWindow(nil, PChar('管理员: C:\Windows\system32\cmd.exe'));
  if h <> 0 then
  begin
    SetForegroundWindow(h);
//  SendMessage(h, WM_PASTE, 0, 0);          // 为啥不起作用呢？
  end;
end;

yingwl

感觉是不是控制台窗口不支持WM_Paste 消息，或者是windows 有安全限制，不允许CMD以这样的方式处理WM_Paste 消息，不确定原因，但是如果只需要粘贴，直接发快捷键解决吧 ALT Space e p
PostMessage(h, WM_SYSCOMMAND, SC_KEYMENU, 32);
PostMessage(h, WM_KEYUP, 69,0 );
PostMessage(h, WM_KEYUP, 80,0 );

冥界3大法王

yingwl 发表于 2022-10-28 08:58
感觉是不是控制台窗口不支持WM_Paste 消息，或者是windows 有安全限制，不允许CMD以这样的方式处理WM_P ...

没有，我最后发送的鼠标右击