FindWindowEX应用实例二则[通俗易懂]

FindWindowEX应用实例二则[通俗易懂]函数功能:该函数获得一个窗口的句柄,该窗口的类名和窗口名与给定的字符串相匹配。这个函数查找子窗口,从排在给定的子窗口后面的下一个子窗口开始。在查找时不区分大小写。    函数原型:HWNDFindWindowEx(HWNDhwndParent,HWNDhwndChildAfter,LPCTSTRlpszClass,LPCTSTRlpszWindow);    参数;    hwndPar

大家好,又见面了,我是你们的朋友全栈君。

函数功能:该函数获得一个窗口的句柄,该窗口的类名和窗口名与给定的字符串相匹配。这个函数查找子窗口,从排在给定的子窗口后面的下一个子窗口开始。在查找时不区分大小写。

    函数原型: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.

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/138428.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • 2020年支持java8的Java反编译工具汇总

    2020年支持java8的Java反编译工具汇总luyten是一款操作简单、功能实用的java反编译工具,软件支持*.JAR、*.zip、*.class等类型文件的反编译操作,还原度非常高,支持更多功能设置,如显式导入、类型、合成组件等等,用户可根据不同的需求选择合适的显示项目,结果更明了。luyten是个人用过的最好用的java反编译工具。哪怕使用jd-gui反编译时会出现“//INTERNALERROR//”错误,无法反编译,此工具…

  • python表白代码,照片隐藏表白话语

    python表白代码,照片隐藏表白话语最近天气好冷,感觉整个人都是冰冰的!程序员如何用python“表白”自己的女神呢?一、具体过程1、代码思路先用cv2中的imread方法读取冰冰的照片,再用PIL的Image方法创建一个相同大小的图像(初始填充白色),最后在图片上每一个块加字。2、python完整代码#-*-coding:utf-8-*-fromPILimportImage,ImageDraw,ImageFontimp

  • bug生命周期的状态

    bug生命周期的状态从一个bug被发现到这个bug被关闭这一段时间,bug可能会有以下状态:new,openPostpone,PendingRetest,Retest,PendingReject,Reject,Deferred,closed.(请注意这里有很多种状态,我们需要根据不同情况来决定怎样或者是否需要跟开发人员沟通)  下面就对这几种状态进行以下解释:  New:(新的)  当

  • 使用Visual Studio 2010写Data Url生成工具C#版本

    使用Visual Studio 2010写Data Url生成工具C#版本

  • python3.8安装matplotlib_matplotlib画图

    python3.8安装matplotlib_matplotlib画图1.直接打开命令提示符(快捷键window+r)2.若提示安装失败(Python——Youareusingpipversion9.0.1,howeverversion10.0.1isavailable.),输入python-mpipinstall-Upipsetuptools进行升级。安装成功,则下图所示:3.安装成功后,输入pytho…

  • cad注释比例和打印比例不一样_cad注释比例(cad注释比例与打印比例)

    cad注释比例和打印比例不一样_cad注释比例(cad注释比例与打印比例)这两个比例有什么区别分别代表的是什么意思麻烦说详细点谢谢是物体被缩小了50倍后的图形这两个比例。但是一张图纸不允许出现两个或以上的比例(局部放大除外),但是标注的数字是实际尺寸,两个没有区别画的是800*500mm的线,注释比例用的1:1,这样是不是不行?我的标注字体.注释比例就是按图框大小来标注的,比如将1:1的图框放大到1:5,那么就选择1:5大小的注释比例,当然注释比例是你事先设置好的…

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号