利用API的消息发送程序原理

利用API的消息发送程序原理 By Shaoyun 2010-03-20

很简单，最基本的几个API函数的应用，我写的这段代码也是最简单实现方法，当然高阶点的通过Hook方式来实现

原理：

通过窗体类名利用FindWindow来获取窗口句柄，再而用FindWindowEx获取编辑框的窗体句柄

借助SendMessage函数发送WM_GETTEXT消息获取编辑框的文本，然后加入自己的消息，发送WM_SETTEXT消息来设置目标程序相应子窗体的内容

这里我给出一段例子代码，点击按钮向记事本追加一段文字。实际应用中还需要设置一个定时器，循环检测目标程序来发送消息。

 1 procedure TForm1.btn1Click(Sender: TObject);
 2 var
 3 sTarget,sMsg:string;
 4 hTargetWnd,hEdit:THandle;
 5 szBuff:array[0..255] of Char;
 6 begin
 7     sTarget:='notepad';
 8     hTargetWnd:=FindWindow(PWideChar(sTarget),nil);
 9     if hTargetWnd<>0 then
10     begin
11       SetForegroundWindow(hTargetWnd);
12       hEdit:=FindWindowEx(hTargetWnd,0,PWideChar('Edit'),nil);
13       if hEdit<>0 then
14       begin
15         SendMessage(hEdit,WM_GETTEXT,SizeOf(szBuff),Integer(@szBuff));
16         sMsg:= szBuff + '追加的信息!';
17         SendMessage(hEdit,WM_SETTEXT,0,Integer(PWideChar(sMsg)));
18       end;
19     end;
20 end;

代码测试环境：Windows XP SP3 + Delphi 2010