SendMessage WM_GETTEXT 的问题

piqimiss4 2011-07-08 02:28:59

var th1,th2,th3:Thandle;
buffer: Array[0..255] of Char;
begin
th1:=FindWindow(nil,'2.txt - 记事本');
th2:=GetDlgItem(th2,15) ;
SendMessage(th2, WM_GETTEXT, 256, integer(@buffer));
memo1.Text:=buffer;
end;

我想得到 txt里面的内容

如何得到？？我这样写新的memo中没有内容~

...全文

371 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

orxor 2011-07-16

打赏
举报

有些控件是非标准的，WM_GETTEXT获取不到内容
有些控件做过特殊处理，不让你获取WM_GETTEXT内容，如密码

ADSLAN 2011-07-11

打赏
举报

只要句柄对了
SendMessage(th2, WM_GETTEXT, 256, integer(@buffer));
用这句就行长度可以长大点

piqimiss4 2011-07-09

打赏
举报

/////觲w2@

var aa:array[1..10]of byte;
th1,th2,th3:Thandle;
bb:integer;
cc:pchar;
begin
th1:=FindWindow(nil,'JJ德州扑克[1.0.3.18] -- 初级场(无限注) TN8501.27 总第196局');
///TKGameChatFrame
th2:=FindWindowEx(th1,0,nil,'TKGameChatFrame');
/////showmessage(inttostr(th2));
th3:=GetDlgItem(th2,9000) ;
cc:=@aa;
bb:=10;
sendmessage(th3,wm_gettext,bb,integer(@aa));
memo1.text:=string(cc);
end;

我这样写的代码可就读取出乱码来读取出来的内容是觲w2@

该怎么写代码

piqimiss4 2011-07-08

打赏
举报

[Quote=引用 7 楼 sgzhou12345 的回复:]

直接读取不行吗，还是想一块显示出来呀
[/Quote]

就是想读取这一块的文本内容保存下来

山东蓝鸟贵薪 2011-07-08

打赏
举报

直接读取不行吗，还是想一块显示出来呀

piqimiss4 2011-07-08

打赏
举报

[Quote=引用 5 楼 mjp1234airen4385 的回复:]

参考
这个是以前写的一个小工具。
使用这个读取到记事本里的内容是没有问题的。
是C++的，你看看，参考。
C/C++ code

LRESULT CALLBACK EnumChildProc(HWND hwnd, LPARAM)
{
char text[128], title[128];
char Result[1024];
GetClassName(hwnd, tex……
[/Quote]我刚才改的读取记事本也没问题就是读取棋牌的句柄没内容~

句柄也是正确的就是没内容

mjp1234airen4385 2011-07-08

打赏
举报

参考
这个是以前写的一个小工具。
使用这个读取到记事本里的内容是没有问题的。
是C++的，你看看，参考。



LRESULT CALLBACK EnumChildProc(HWND hwnd, LPARAM)

{

  char text[128], title[128];

  char Result[1024];

  GetClassName(hwnd,   text, 128);

  SendMessage(hwnd, WM_GETTEXT, (WPARAM)128, (LPARAM)title);

  memset(Result, 0, 1024);

  sprintf(Result, "%s\r%s\r%d", text, title, hwnd);

  AddDataToStringGrid(Result);

  return true; //true表示继续取，false表示不取

}

piqimiss4 2011-07-08

打赏
举报

为什么棋牌的客户端我用这个办法没法得到想要的内容呢？？

var th1,th2,th3:Thandle;
buffer: Array[0..255] of Char;
begin
th1:=FindWindow(nil,'JJ德州扑克[1.0.3.18] -- 初级场(无限注) TN8501.40 总第3局');
///TKGameChatFrame
th2:=FindWindowEx(th1,0,nil,'TKGameChatFrame');
/////showmessage(inttostr(th2));
th3:=GetDlgItem(th2,9000) ;
SendMessage(th3, WM_GETTEXT, 256, integer(@buffer));
memo1.Text:=buffer;
end;

句柄都找对了就是内容获取不了何解