社区
Windows SDK/API
帖子详情
请问如何得到其它程序TMemo的内容?FindWindowEx和GetText不起作用。
atoz
2003-12-04 07:51:20
我用 FindWindowEx 最终找到了需要的 TMemo 的句柄,但是用 GetText 却返回 0。
Memo 控件有内容,但无法得到,请问有什么招儿和函数?
...全文
85
8
打赏
收藏
请问如何得到其它程序TMemo的内容?FindWindowEx和GetText不起作用。
我用 FindWindowEx 最终找到了需要的 TMemo 的句柄,但是用 GetText 却返回 0。 Memo 控件有内容,但无法得到,请问有什么招儿和函数?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
猛禽
2003-12-08
打赏
举报
回复
呵呵,是偶搞错了,原来只是取MEMO的内容啊,我还以为要取密码:)
atoz
2003-12-07
打赏
举报
回复
抱歉各位久等了。
ljianq(泉深水清)
我写错了,用 GetWindowText 无法得到数据。
ccrun(老妖)
我用你的发消息方法实现了。
hohulove(hohulove)
你跟老妖的方法一样,也就是我想问的方法。
我对 win32 消息不熟悉,;-P
Raptor(猛禽)
我觉得没有必要用钩子。
感谢各位!
猛禽
2003-12-05
打赏
举报
回复
在WIN9X下可以,但在WIN 2K下不行。因为WIN 2K只能在本进程中进行GETTEXT操作,所以解决的办法是用鼠标钩子或远程线程注入。
hohulove
2003-12-05
打赏
举报
回复
可先用findwindow找到那个窗体的Handle,然后再EnumChildWindows找到那个TMemo的Handle,再SendMessage就OK了!哈哈
ccrun.com
2003-12-05
打赏
举报
回复
忘了说了。
memWinDetail是Form上的一个Memo.
ccrun.com
2003-12-05
打赏
举报
回复
int nTextLen;
nTextLen = SendMessage(hWindow, WM_GETTEXTLENGTH, 0, 0);
char szStrBuf[65535];
if(nTextLen>65534)
nTextLen = 65534;
SendMessage(hWindow, WM_GETTEXT, nTextLen + 1, (LPARAM)szStrBuf);
memWinDetail->Lines->Add(szStrBuf);
ljianq
2003-12-05
打赏
举报
回复
使用GetWindowText()应该可以 的。
ccrun.com
2003-12-05
打赏
举报
回复
我的代码在win2k下是可以的。
那是minispy其中的一段代码。
TMemo
逐行读取数据Demo
Delphi开发过程中,往往需要在
TMemo
中逐行读取数据,本实例是回答网友问题的源码。上传方便实施
TMemo
逐行读取数据的同行下载参考。
Delphi
TMemo
字符串的查找完全实现
这是早上传的发现有问题 不能在Delphi Xe5中运行 但能在Delphi7中运行 我想删除它也没权限 http://download.csdn.net/detail/teststudio/6404077 所以重传下 Delphi
TMemo
字符串的查找完全实现 已经完全的解决Delphi
TMemo
的查找对话框 和 替换对话框 功能 的所有功能 查看 GIF http://images.cnblogs.com/cnblogs_com/xe2011/524919/o_TFindDialog.gif
彻底解决memo
内容
多时假死问题
当memo
内容
多时,换行定位类似假死…… 1、
内容
读进readTxtKeep 2、要查找的关键字KeyStr 3、刷新Memeo显示ss 4、然后根据前面显示的次数、关键字,Memeo定位到需要的位置
SQL Server 中 text或ntext 字段
内容
替换方法
在不确定text或ntext字段长度的时候 SQL Server 中 text或ntext 字段
内容
替换方法
Delphi 7.0
得到
Memo中的可见行数.rar
Delphi 7.0 获取Memo控件中字符的可见行数,没讲 时在Memo控件中随便粘贴入一些字符,单击窗口中的“检测可见行数”按钮,即可
得到
该文本框控件中字符的行数,将这一系列执行命令集成在delphi的按钮监听事件中,编写如下代码即可: function LinesVisible(Memo:
TMemo
): integer; Var OldFont : HFont; Hand : THandle; TM : TTextMetric; Rect : TRect; tempint : integer; begin Hand := GetDC(Memo.Handle); try
GetText
Metrics(Hand, TM); Memo.Perform(EM_GETRECT, 0, longint(@Rect)); tempint := (Rect.Bottom - Rect.Top) div Memo.Font.Height div -1; finally ReleaseDC(Memo.Handle, Hand); end; Result := tempint; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin bitbtn1.Caption:='可见[' IntToStr(LinesVisible(Memo1)) ']行'; end;
程序
运行效果请参见截图所示,完整源码请下载。
Windows SDK/API
1,221
社区成员
8,136
社区内容
发帖
与我相关
我的任务
Windows SDK/API
C++ Builder Windows SDK/API
复制链接
扫一扫
分享
社区描述
C++ Builder Windows SDK/API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章