delphi有关获取其他程序的窗口及对窗口内控件的操作
1.获取当前所有窗口
procedure TForm1.Button1Click(Sender: TObject);
var
szText: array[0..254] of char;
hCurrentWindow :hwnd;
begin
hCurrentWindow := GetWindow(Handle,GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow ,@szText,255) > 0 then
memo1.lines.Add(StrPas(@szText));
hCurrentWindow := GetWindow(hCurrentWindow,GW_HWNDNEXT);
end;
end;
2.获取某一指定窗口
procedure TForm1.Button1Click(Sender: TObject);
var
szText: array[0..254] of char;
hCurrentWindow :hwnd;
begin
hCurrentWindow := GetWindow(Handle,GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow ,@szText,255) > 0 then
if pos('RTX 会话', StrPas(@szText))<>0 then //这里指定某一窗口,可能有多个
memo1.lines.Add(StrPas(@szText));
hCurrentWindow := GetWindow(hCurrentWindow,GW_HWNDNEXT);
end;
end;
3.获取某一窗口内的所有控件及其内容
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure get_actrlh(h:hwnd);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
hi:integer;
implementation
{$R *.dfm}
function gettext(h:hwnd):string;
var name:string;
txtlen:integer;
begin
TxtLen:=sendmessage(h ,wm_gettextlength,0,0)+1;
setlength(name,TxtLen);
sendmessage(h ,wm_gettext,txtlen,LongInt(@name[1]));
result:=name;
end;
procedure tform1.get_actrlh(h:hwnd);
var
s: Array[0..255] of char;
begin
h:=GetWindow(h,GW_child);
while h>0 do
begin
GetClassName(h, s, 256);
begin
memo1.lines.Add(inttostr(hi)+':'+s+':'+trim(gettext(h)) );
end ;
hi:=hi+1;
get_actrlh(h);
h:=GetWindow(h,GW_HWNDNEXT);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
szText: array[0..254] of char;
hCurrentWindow :hwnd;
begin
hCurrentWindow := GetWindow(Handle,GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow ,@szText,255) > 0 then
if pos('RTX 会话', StrPas(@szText))<>0 then //这里指定某一窗口,可能有多个
begin
memo1.lines.Add(StrPas(@szText));
hi:=0;
get_actrlh(hCurrentWindow);//获取窗口中的所有控件
end;
hCurrentWindow := GetWindow(hCurrentWindow,GW_HWNDNEXT);
end;
end;
end.
4.获取窗口中的某个控件,并对其操作
首先用上面3中的程序,根据窗口中控件的特性,找到你要操作的控件的序号,
即memo1中左边的数字,用变量hnum保存这一序号,再把上面3中的程序稍作修改如下,
以下其实是一个完整的、功能简单的、没有经过优化的腾讯通RTX自动回复消息程序:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure get_actrlh(h:hwnd);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
hi,hnum:integer;
implementation
{$R *.dfm}
function gettext(h:hwnd):string;
var name:string;
txtlen:integer;
begin
TxtLen:=sendmessage(h ,wm_gettextlength,0,0)+1;
setlength(name,TxtLen);
sendmessage(h ,wm_gettext,txtlen,LongInt(@name[1]));
result:=name;
end;
procedure tform1.get_actrlh(h:hwnd);
var
s: Array[0..255] of char;
begin
h:=GetWindow(h,GW_child);
while h>0 do
begin
GetClassName(h, s, 256);
begin
memo1.lines.Add(inttostr(hi)+':'+s+':'+trim(gettext(h)) );
if hi=hnum then
begin
memo1.lines.Add('上面为找到的控件');
SendMessage(h,WM_SETTEXT,0,Integer(pchar('*此为RichEdit20W所赋的文本')));
end;
end ;
hi:=hi+1;
get_actrlh(h);
h:=GetWindow(h,GW_HWNDNEXT);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
szText: array[0..254] of char;
hCurrentWindow :hwnd;
begin
hCurrentWindow := GetWindow(Handle,GW_HWNDFIRST);
memo1.Clear;
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow ,@szText,255) > 0 then
if pos('RTX 会话', StrPas(@szText))<>0 then //这里指定某一窗口,可能有多个
begin
memo1.lines.Add(StrPas(@szText));
hi:=0;
hnum:=3; //此为所要赋值的RichEdit20W控件在窗口中的序号
get_actrlh(hCurrentWindow);//获取窗口中的所有控件
//以下向窗口发送ALT_S 组合键,实现腾讯通RTX发送消息
SetForegroundWindow(hCurrentWindow);//设置窗口为当前窗口
keybd_event(VK_menu,MapVirtualKey(VK_menu,0),0,0);
sleep(1000);
keybd_event(83,MapVirtualKey(83,0),0,0);
sleep(1000);
keybd_event(83,MapVirtualKey(83,0),KEYEVENTF_KEYUP,0);
keybd_event(VK_menu,MapVirtualKey(VK_menu,0),KEYEVENTF_KEYUP,0);
end;
hCurrentWindow := GetWindow(hCurrentWindow,GW_HWNDNEXT);
end;
end;
end.
delphi有关获取其他程序的窗口及对窗口内控件的操作的更多相关文章
- WPF 程序鼠标在窗口之外的时候,控件拿到的鼠标位置在哪里?
原文:WPF 程序鼠标在窗口之外的时候,控件拿到的鼠标位置在哪里? 在 WPF 程序中,我们有 Mouse.GetPosition(IInputElement relativeTo) 方法可以拿到鼠标 ...
- delphi 一个自动控制机的硅控板检测程序,用多线程和API,没有用控件,少做改动就能用 用485开发
一个自动控制机的硅控板检测程序,用多线程和API,没有用控件,少做改动就能用Unit CommThread; Interface Uses Windows, Classes, SysUtils, G ...
- SNF快速开发平台MVC-各种级联绑定方式,演示样例程序(包含表单和表格控件)
做了这么多项目,经常会使用到级联.联动的情况. 如:省.市.县.区.一级分类.二级分类.三级分类.仓库.货位. 方式:有表单需要做级联的,还是表格行上需要做级联操作的. 实现:实现方法也有很多种方式. ...
- WPF 从程序集中检索图片资源stream给Image控件使用
原文:WPF 从程序集中检索图片资源stream给Image控件使用 版权声明:本文为博主原创文章,未经博主允许不得转载. https://blog.csdn.net/nihang1234/artic ...
- JS 获取某个容器控件中id包含制定字符串的控件id列表
//获取某容器控件中id包含某字符串的控件id列表 //参数:容器控件.要查找的控件的id关键字 function GetIdListBySubKey(container,subIdKey) { va ...
- DELPHI XE10,JSON 生成和解析,再利用INDYHTTP控件POST
Delphi XE10,Json 生成和解析,再利用indyhttp控件Post 年09月20日 :: 阅读数: --不多说,直接上代码 procedure TFrmMain.Brand; var J ...
- VC++如何在程序中用代码注册和卸载ocx控件(代码)
方法一:在dos或Windows命令行下运行:regsvr32 ocxname.ocx 注册 示例:regsvr32 netshare.ocx //注册netshare.ocx控件regsvr ...
- 在DevExpress程序中使用条形码二维码控件,以及进行报表打印处理
在很多业务系统里面,越来越多涉及到条形码.二维码的应用了,不管在Web界面还是WInform界面都需要处理很多物料相关的操作,甚至很多企业为了减少录入错误操作,为每个设备进行条形码.二维码的标签,直接 ...
- 首发 手把手教你制作 Windows8 应用程序内部的 hubtile (动态瓷砖控件) MetroStyle(转)
http://blog.csdn.net/wangrenzhu2011/article/details/8175492 (转) 在metro 风格中 动态磁贴是他的精髓 在wp7 的开发中 我们可以使 ...
随机推荐
- wordpress之插件安装和主题安装(包含常见问题)
问题描述:安装WordPress主题及插件需要输入FTP问题,要执行请求的操作,WordPress需要访问您网页服务器的权限.请输入您的FTP登陆凭据以继续 执行如下两条命令即可安装成功: sudo ...
- OpenCV——轮廓填充drawContours函数解析
函数的调用形式 void drawContours(InputOutputArray image, InputArrayOfArrays contours, int contourIdx, const ...
- 深入浅出的webpack4构建工具---Scope Hoisting(十六)
一:什么是Scope Hoisting? 它有什么作用?Scope Hoisting 它可以让webpack打包出来的代码文件更小,运行更快,它可以被称作为 "作用域提升".是在w ...
- PAT A1145 Hashing - Average Search Time (25 分)——hash 散列的平方探查法
The task of this problem is simple: insert a sequence of distinct positive integers into a hash tabl ...
- SkylineGlobe6.5版本,在矿山、石油、天然气等能源行业的最新应用DEMO演示
SkylineGlobe6.5版本,在矿山.石油.天然气等能源行业的最新应用DEMO演示: http://v.youku.com/v_show/id_XNTc3Njc1OTEy.html 一个Pres ...
- 9-(基础入门篇)云端安装MQTT服务器
https://www.cnblogs.com/yangfengwu/p/9953703.html 记得把文件拷贝到上一节配置的和云端共享的那个盘里面,好拷贝文件到云服务器 进入到bin目录 咱先以控 ...
- 初识Identity(二)
本文参考了[ASP.NET Identity系列教程(一)]ASP.NET Identity入门 一.Identity使用前准备项目 本文创建了一个名称为Users的项目.在创建过程中选择了“Empt ...
- 01-Mirrorgate简介
1.项目信息 MirrorGate是一款WallBoard应用程序,旨在为团队提供与软件开发相关的所有不同领域的快速反馈. 项目地址:https://github.com/BBVA/mir ...
- Google BreakPad使用集
Google Breakpad 学习笔记 - 简书 Qt中使用Google Breakpad捕获程序崩溃异常_Linux编程_Linux公社-Linux系统门户网站
- vue 中使用 async/await 将 axios 异步请求同步化处理
1. axios 常规用法: export default { name: 'Historys', data() { return { totalData: 0, tableData: [] } }, ...