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.

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/138428.html原文链接：https://javaforall.cn