FindWindowEX应用实例二则
函数功能:该函数获得一个窗口的句柄,该窗口的类名和窗口名与给定的字符串相匹配。这个函数查找子窗口,从排在给定的子窗口后面的下一个子窗口开始。在查找时不区分大小写。
函数原型:HWND FindWindowEx(HWND hwndParent,HWND hwndChildAfter,LPCTSTR lpszClass,LPCTSTR lpszWindow);
参数;
hwndParent:要查找子窗口的父窗口句柄。
如果hwnjParent为NULL,则函数以桌面窗口为父窗口,查找桌面窗口的所有子窗口。
Windows NT5.0 and later:如果hwndParent是HWND_MESSAGE,函数仅查找所有消息窗口。
hwndChildAfter :子窗口句柄。查找从在Z序中的下一个子窗口开始。子窗口必须为hwndPareRt窗口的直接子窗口而非后代窗口。如果HwndChildAfter为NULL,查找从hwndParent的第一个子窗口开始。如果hwndParent 和 hwndChildAfter同时为NULL,则函数查找所有的顶层窗口及消息窗口。
lpszClass:指向一个指定了类名的空结束字符串,或一个标识类名字符串的成员的指针。如果该参数为一个成员,则它必须为前次调用theGlobaIAddAtom函数产生的全局成员。该成员为16位,必须位于lpClassName的低16位,高位必须为0。
lpszWindow:指向一个指定了窗口名(窗口标题)的空结束字符串。如果该参数为 NULL,则为所有窗口全匹配。返回值:如果函数成功,返回值为具有指定类名和窗口名的窗口句柄。如果函数失败,返回值为NULL。
若想获得更多错误信息,请调用GetLastError函数。
速查 NT:4.0对以上版本;Windows:95以上版本;Windows CE:不支持;头文件:winuser.h;库文件:user32.lib;Unicode:在Windows NT上实现为Unicode和ANSI两种版本。
实例1.
unit unitWinExe;
interface
uses
Windows,Messages,Dialogs;
implementation
var
fHwnd,cHwnd:THandle;
cmdLine:string;
begin
cmdLine := 'C:/Program Files/Huawei-3Com/H3C 802.1X 客户端/Dot1XClient.exe';
WinExec(PChar(cmdLine),SW_HIDE) ;
fHwnd:=FindWindow('#32770',nil); //查找到窗口#32770,’#32770‘用Spy++查出来的。
if fHwnd>0 then
begin
cHwnd:=FindWindowEx(fHwnd,0,nil,'连接'); //查找#32770的子窗口'连接'
if cHwnd>0 then PostMessage(cHwnd,WM_KEYDOWN,VK_RETURN ,0) ; //按回车键
end;
end.
实例2.全面控制Windows任务栏
分析:
从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是:开始 按钮、应用程序切换区(Application Switch Bar)、任务栏通知区(Notification Area)以 及任务栏时钟。与其它Windows应用程序相同,任务栏程序(systray.exe)由几个不同的窗体 组成,这些窗体是具有各自的窗口类名、显示方式等信息。因此,只要得到有关窗口信息, 即可通过编程全面控制Windows任务栏的不同区域。
(1)任务栏窗体的窗口信息为:(我用spy++查出来的)
①任务栏的窗口类名是:ShellTrayWnd。
②开始按钮的窗口类名是:Button。
③应用程序切换区的窗口类名是:ReBarWindow32。
④任务栏通知区的窗口类名是:TrayNotifyWnd。
⑤任务栏时钟的窗口类名是:TrayClockWClass。
(2)调用FindWindow函数得到任务栏的窗口句柄。
(3)调用FindWindowEx函数得到任务栏各子区域的窗口句柄。
(4)根据窗口句柄,调用ShowWindow函数控制任务栏各区域显示或隐藏(Show/Hide);调用EnableWindow函数控制任务栏各区域有效或无效(Enabled/Disabled)。
代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
Wnd:array [0..4] of THandle;
procedure GetHandles ;
procedure EnableOrDisable(Sender:TOBject);
procedure HideOrShow(Sender:TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.EnableOrDisable(Sender: TOBject);
begin
GetHandles;
if TCheckBox(Sender).Checked then
case Tcheckbox(Sender).Tag of
0:EnableWindow(wnd[0],False);
1:EnableWindow(wnd[1],False);
2:EnableWindow(wnd[2],False);
3:EnableWindow(wnd[3],False);
4:EnableWindow(wnd[4],False);
end
else
case Tcheckbox(Sender).Tag of
0:EnableWindow(wnd[0],True);
1:EnableWindow(wnd[1],True);
2:EnableWindow(wnd[2],True);
3:EnableWindow(wnd[3],True);
4:EnableWindow(wnd[4],True);
end;
end;
procedure TForm1.GetHandles;
begin
//得到Tray Bar的窗口句柄;
Wnd[0]:=FindWindow('ShellTrayWnd',nil);
//得到开始按钮的窗口句柄;
Wnd[1]:=FindWindow('ShellTrayWnd',nil);
Wnd[1]:=FindWindowEx(Wnd[1],HWND(0),'Button',nil);
//得到应用程序切换区的窗口句柄;
Wnd[2]:=FindWindow('ShellTrayWnd',nil);
Wnd[2]:=FindWindowEx(Wnd[2],HWND(0),'ReBarWindow32',nil);
//得到任务栏通知区的窗口句柄;
Wnd[3]:=FindWindow('ShellTrayWnd',nil);
Wnd[3]:=FindWindowEx(Wnd[3],HWND(0),'TrayNotifyWnd',nil);
//得到任务栏时钟的窗口句柄;
Wnd[4]:=FindWindow('ShellTrayWnd',nil);
Wnd[4]:=FindWindowEx(wnd[4],HWND(0),'TrayNotifyWnd',nil);
Wnd[4]:=FindWindowEx(wnd[4],HWND(0),'TrayClockWClass',nil);
end;
procedure TForm1.HideOrShow(Sender: TObject);
begin
GetHandles;
if TCheckBox(Sender).Checked then
case Tcheckbox(Sender).Tag of
0:ShowWindow(wnd[0],SW_HIDE);
1:ShowWindow(wnd[1],SW_HIDE);
2:ShowWindow(wnd[2],SW_HIDE);
3:ShowWindow(wnd[3],SW_HIDE);
4:ShowWindow(wnd[4],SW_HIDE);
end
else
case Tcheckbox(Sender).Tag of
0:ShowWindow(wnd[0],SW_SHOW );
1:ShowWindow(wnd[1],SW_SHOW );
2:ShowWindow(wnd[2],SW_SHOW );
3:ShowWindow(wnd[3],SW_SHOW );
4:ShowWindow(wnd[4],SW_SHOW );
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:Integer ;
begin
for i:=0 to 4 do
begin
EnableWindow(wnd[i],True);
ShowWindow(wnd[i],SW_SHOW);
end;
end;
end.
FindWindowEX应用实例二则相关推荐
- FindWindowEX的实例
FindWindowEX的实例 [ 日期:2004-12-24 ] [ 来自:本站原创 ]函数功能:该函数获得一个窗口的句柄,该窗口的类名和窗口名与给定的字符串相匹配.这个函数查找子窗口,从排 ...
- Windows控制台程序处理消息编程实例二则
一 控制台程序处理Windows消息 #include <stdio.h> #include <windows.h>BOOL WINAPI ConsoleHandler(DWO ...
- Notepad++ 列编辑操作实例二则
一 一次替换一列符号 首先在Notepad++中插入一些文本: 按住alt 键不放: 按下鼠标左键,拖动,可以选中中间一列的逗号: 在键盘上敲入 | 符号:看一下,整个中间一列都变成 |: 二 插入 ...
- Java中的简单工厂模式(转)
Java中的简单工厂模式 举两个例子以快速明白Java中的简单工厂模式: 女娲抟土造人 话说:"天地开辟,未有人民,女娲抟土为人."女娲需要用土造出一个个的人,但在女娲造出人之前, ...
- 设计模式(java)--简单工厂模式之女娲造人.水果农场
女娲抟土造人 话说:"天地开辟,未有人民,女娲抟土为人."女娲需要用土造出一个个的人,但在女娲造出人之前,人的概念只存在于女娲的思想里面. 女娲造人,这就是简单工厂模式的应用. ...
- 前端开发基础知识汇总
一.HTML 1.前言与常用标签 浏览器 内核 备注 IE Trident IE.猎豹安全.360极速浏览器.百度浏览器 firefox Gecko 可惜这几年已经没落了,打开速度慢.升级频繁.猪一样 ...
- Spring Cloud微服务系统架构的一些简单介绍和使用
Spring Cloud 目录 特征 云原生应用程序 Spring Cloud上下文:应用程序上下文服务 引导应用程序上下文 应用程序上下文层次结构 改变Bootstrap的位置Properties ...
- vb FindwindowEx的用法实例
'添加 Command1 Const WS_CHILD = &H40000000 Const WM_LBUTTONDOWN = &H201 Const WM_LBUTTONUP = & ...
- c#中通过win32API(FindWindowEx)查找控件句柄实例
函数功能:该函数获得一个窗口的句柄,该窗口的类名和窗口名与给定的字符串相匹配.这个函数查找子窗口,从排在给定的子窗口后面的下 一个子窗口开始.在查找时不区分大小写. 函数原型:HWND FindWin ...
最新文章
- 双系统如何删除Linux
- CORS 请求未能成功_CORS 测试 提示错误 Reason: header authorization
- mysql 常用配置_mysql 常用配置
- chrome应用程序无法启动因为并行配置不正确的处理办法(亲测版本不一样也是类似的操作)
- 宝塔清mysql主从日志_宝塔面板Mysql主从日志文件mysql-bin文件清除方法
- R开发(part3)--概率基础和R语言
- Substitution控件MethodName无法取到Session的解决办法
- Codeforces Round #691 (Div. 1)
- 你愿意隐姓埋名一辈子吗?” #百年百人系列
- 你必须要知道的架构知识~第二章 代码是否面向对象,要看你的继承怎么用
- linux 内核恐慌,linux – CentOS 6.5 mdadm Raid 1 – raid数据检查期间的内核恐慌
- vsftpd+TLS+MySQL
- Benchmark与Profiler---性能调优得力助手
- python使用gmssl实现SM4算法的OFB模式
- iconfont字体图标下载及使用方法
- subtype,supertype 与 subclass,superclass 的异同
- Python实现飞翔的小鸟
- moses 编译_moses工具的配置详解
- 《能屈能伸英特尔睿频加速技术深度解析》
- c语言打印输出迷宫地图所有路径