首页 / 软件开发 / Delphi / Delphi全面控制Windows任务栏

Delphi全面控制Windows任务栏2007-10-15韩莹使用Windows95/NT/98操作系统的用户知道：正常启动后,在电脑屏幕下方出现一块 任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是：开始 按钮、应用程序切换区（Application Switch Bar）、任务栏通知区（Notification Area）以 及任务栏时钟。与其它Windows应用程序相同,任务栏程序（systray.exe）由几个不同的窗体 组成,这些窗体是具有各自的窗口类名、显示方式等信息。因此,只要得到有关窗口信息, 即可通过编程全面控制Windows任务栏的不同区域。

1. 编程思想

（1）任务栏窗体的窗口信息为：

①任务栏的窗口类名是：ShellTrayWnd。

②开始按钮的窗口类名是：Button。

③应用程序切换区的窗口类名是：ReBarWindow32。

④任务栏通知区的窗口类名是：TrayNotifyWnd。

⑤任务栏时钟的窗口类名是：TrayClockWClass。

（2）调用FindWindow函数得到任务栏的窗口句柄。

（3）调用FindWindowEx函数得到任务栏各子区域的窗口句柄。

（4）根据窗口句柄,调用ShowWindow函数控制任务栏各区域显示或隐藏 （show/hide）；调用En ableWindow函数控制任务栏各区域有效或无效（enabled/disabled）。

2. 编程方法

（1）在Delphi3.0 IDE中新建工程Project1, Project1中包含Form1, 窗体如下图所示：

（2）定义窗口句柄数组：Wnd:array［0..4］ of THandle;

（3）GetHandles过程代码如下：

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；