end;
end;
(6)FormClose 事件代码如下://将 Windows 任务栏恢复到正常状态;
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],SWShow);
end;
end;
(7)按 F9 运行程序。以上程序在 Delphi3.0/4.0、Windows95/98 简体中文版环境下调试通
过。
(8)说明:本文所述方法同样适用于 VB、VC、BC、C++Builder 等编程工具,但应注意语法、
变量类型等不同要求。
使用
Windows95/NT/98 操作系统的用户知道:Windows 正常启动后,在电脑屏幕下方出
现一块
任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是:
开始
按钮、应用程序切换区(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);