Delphi 7 获取窗口文本的例子.rar
Delphi 7 获取窗口文本的例子，只要是当前窗口中的内容，都可以获取到，可能会比较乱，获取的过程被封装在按钮事件中，当用户点击后，执行事件中规定的命令：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
H_window:HWND;
Text:array[0..255] of char;
begin
H_window:=GetWindow(Handle,GW_HWNDFIRST);
While H_window<>0 do
begin
if GETWindowText(H_window,@text,255)>0 then
memo1.Lines.Add(StrPas(@Text));
H_window:=GetWindow(H_Window,GW_HWNDNEXT);
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
H_window:HWND;
Text:array[0..255] of char;
begin
H_window:=GetWindow(Handle,GW_HWNDFIRST);
While H_window<>0 do
begin
if GETWindowText(H_window,@text,255)>0 then
memo1.Lines.Add(StrPas(@Text));
H_window:=GetWindow(H_Window,GW_HWNDNEXT);
end;
end;
文件下载
资源详情
[{"title":"（ 7 个子文件 6KB ） Delphi 7 获取窗口文本的例子.rar","children":[{"title":"codesc.net","children":[{"title":"获取窗口文本","children":[{"title":"Project1.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"Unit1.dfm <span style='color:#111;'> 677B </span>","children":null,"spread":false},{"title":"Project1.cfg <span style='color:#111;'> 434B </span>","children":null,"spread":false},{"title":"Unit1.pas <span style='color:#111;'> 792B </span>","children":null,"spread":false},{"title":"Project1.dpr <span style='color:#111;'> 188B </span>","children":null,"spread":false},{"title":"Project1.dof <span style='color:#111;'> 2.30KB </span>","children":null,"spread":false},{"title":"Unit1.dcu <span style='color:#111;'> 4.05KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}],"spread":true}]
评论信息
其他资源
- 微信小程序二维码乘车
- 仿小米商城网页版（全套）
- imagenet-vgg-m-2048
- 基于wxPython和PySerial实现的串口助手
- Qt文件或文件夹拷贝
- MODIS 1B数据下载、常用处理软件、ENVI处理方法介绍（图解详细）
- 使用VIBE算法进行车流量检测并消除鬼影、阴影
- GeneXus快速入门指南(中文版)
- 编译原理 语法分析 语法树生成
- matlab 神经网络的文字识别 有详细注释-补充样本.zip
- eyazisma.online.api：E-YazışmaTeknik Rehberisürümlerindebeliritilen kritterlere uygunşekildee-yazışmapaketioluşturmak，güncellemekve okumakiçinhazırlanmışbir API'dir-源码
- EXIF-公众号处理上传图片旋转.js
- Windows下activemq安装包
- DevExpress v12.2.4版本的注册工具
- 教学绩效管理系统
- spring5.0全套jar包
- vb 售后服务管理系统 课程设计
- jsp+servlet做的房产交易系统
- 中科大高级计算机网络ppt
- Struts2_day03笔记
- Word实战技巧精粹 完美标签 pdf
- 单片机流水灯（C语言）
- asp.net 简单答题考试系统
- python神经网络算法
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明