Question

delphi向窗口发送字符串

现在只能发送一个字符,请高手帮忙改成可以发送一句话和发送确定键.
h:=FindWindow('D3D Window',nil); //根据类名找句柄
if h <> 0 then
SendMessage(h,WM_Char,Wparam('Q'),2);
谢谢大家.不会的免了,在线等.

Answer 1

用SHOWMESSAGE函数即可。

函数格式为SHOWMESSAGE(输出您想要显示的字符串)。

如你想在点击某个按钮时，弹出'您输入的密码有误，请重试！'的提示，操作如下：

1、选择某一按钮；

2、在其OnClick事件中，输入代码：ShowMessage('您输入的密码有误，请重试！');

3、编译程序后，点击该按钮，将会弹出提示，如下图：

Answer 2

用循环遍历字符串。
var
myword: string;
h: hwnd;
i: integer;
begin
myword := '你好啊'; //这里赋值上你要发送的话，可以是中文
h:=FindWindow('D3D Window',nil); //查找窗口句柄
if h <> 0 then
begin
for i:= 1 to length(myword) do //循环
begin
PostMessage(h,WM_Char,Wparam(myword[i]),0); //发送字符串给窗口
end;
end;
end;

//亲测可行

追问

这个可行的,怎么发送alt+C组合键,请帮忙下.谢谢!

追答

PostMessage(h,WM_SYSKEYDOWN,67,$20000000);

Answer 3

SendMessage(h,WM_SETTEXT,255,Integer(PChar(Msg)));
SendMessage(h,WM_SETFOCUS,0,0);
SendMessage(h,WM_LBUTTONDOWN,0,0);
SendMessage(h,WM_LBUTTONUP,0,0);
SendMessage(h,WM_KILLFOCUS,0,0);

Answer 4

建议你到网上搜spy++源码，，你这个实现很复杂，不是像你这样简单2句就可以搞定的。因为我决得你FindWindow的这个窗口肯定不是同一个进程，如果是同一个进程那就简单点。

Answer 5

网上找的，没实验，仅供参考
发送方：
a:TStrings;
a := TStringList.Create;
SendMessage(Formb.Handle, WM_YOURMESSAGE, 0, LongInt(a));
接收方：
b:TStrings;
b := TStringList.Create;
b.Assign(TStrings(Msg.WParam));
TStrings(Msg.WParam).Free;