qq2006中怎样取得发送消息窗口中的Richedit

来源：百度知道 编辑：UC知道 时间：2024/05/24 12:47:28
学习编程中想让程序可以自动在QQ的发送消息框中自动发送消息，但在QQ2006中好象发送消息框中的RICHEDIT加密了，用这样的方法的不到了，请高手看下如下代码：
fLastWin := FindWindowEx(GetForegroundWindow, THandle(nil), '#32770', nil);
if fLastWin = 0 then Exit;

//fButton := FindWindowEx(GetForegroundWindow, THandle(nil),nil,'发送(&S)');
//if fButton=0 then Exit;（这个发送按扭也找不到，所以暂时没有用）

fLastWin := FindWindowEx(fLastWin, THandle(nil),'AfxWnd42',nil);
if fLastWin=0 then Exit;
label2 .Caption:=('以上条件成立');//在这里时还可以提示成立
//fLastWin := FindWindowEx(fLastWin, THandle(nil),'RICHEDIT',nil);
//if fLastWin=0 then Exit;
label2 .Caption:=('以上条件成立');//但在这里就不行了
SendMessage(RICHEDIT,EM_REPLACESEL,180,Integer(Pchar(Edit1.TEXT)));

请各位大侠指点小弟！多谢
label2 .Caption:=('以上条件成立');
这一句没有同时出现两次，而是我把它放到不同位置进行测试，以检验那一句不能通过

以下是从网上找的一段代码，你可以试下，FindWindow用法说得有误，第一个参数应该是类名，第二个是窗口名，也即是标题。你自己改下吧。

var
Wnd: HWND;
begin
// 查找标题为123，类名是#32770的窗口
Wnd := FindWindow('123', '#32770');
if Wnd <> 0 then
begin
// 查找文本是'Edit1'，类名是EDIT的子窗口
Wnd := FindWindowEx(Wnd, 0, 'Edit1', 'EDIT');
if Wnd <> 0 then SetWindowText(Wnd, PChar('Test');
end;
end;

你也可以用Spy++之类的察看目标EDIT的Identifier(ID)

var
Wnd: HWND;
const
ID: 123;
begin
// 查找标题为123，类名是#32770的窗口
Wnd := FindWindow('123', '#32770');
if Wnd <> 0 then
begin
Wnd := GetDlgItem(Wnd, ID);
if Wnd <> 0 then SetWindowText(Wnd, PChar('Test');
end;
end;

具体的查查MSDN吧