利用Delphi全面控制Windows任务栏

1、利用Delphi全面控制Windows任务栏     您正在浏览的计算机论文是利用Delphi全面控制Windows任务栏                                    

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

3、;        1. 编程思想           (1)任务栏窗体的窗口信息为：           任务栏的窗口类名是：ShellTrayWnd。           开始按钮的窗口类名是：Button。 

4、0;         应用程序切换区的窗口类名是：ReBarWindow32。           任务栏通知区的窗口类名是：TrayNotifyWnd。           任务栏时钟的窗口类名是：TrayClockWClass。       &#

5、160;   (2)调用FindWindow函数得到任务栏的窗口句柄。           (3)调用FindWindowEx函数得到任务栏各子区域的窗口句柄。           (4)根据窗口句柄，调用ShowWindow函数控制任务栏各区域显示或隐藏        (show/hide)；调用En ableWin

6、dow函数控制任务栏各区域有效或无效(enabled/disabled)。           2. 编程方法           (1)在Delphi3.0 IDE中新建工程Project1, Project1中包含Form1, 窗体如下图所示：           (2)定义窗口句柄数组：Wnd

7、:array0.4 of THandle;           (3)GetHandles过程代码如下：    procedure TForm1.GetHandles;    begin    /得到Tray Bar的窗口句柄；    Wnd0:=FindWindow(ShellTrayWnd,nil);   

8、; /得到开始按钮的窗口句柄；    Wnd:=FindWindow(ShellTrayWnd,nil);    Wnd:=FindWindowEx(Wnd,HWND(0),Button,nil);    /得到应用程序切换区的窗口句柄；    Wnd:=FindWindow(ShellTrayWnd,nil);    Wnd:=FindWindowEx(Wnd,HWND(0),ReBa

9、rWindow32,nil);    /得到任务栏通知区的窗口句柄；    Wnd3:=FindWindow(ShellTrayWnd,nil);    Wnd3:=FindWindowEx(Wnd3,HWND(0),TrayNotifyWnd,nil);    /得到任务栏时钟的窗口句柄；    Wnd4:=FindWindow(ShellTrayWnd,nil);  

10、60; Wnd4:=FindWindowEx(Wnd4,HWND(0),TrayNotifyWnd,nil);    Wnd4:=FindWindowEx(Wnd4,HWND(0),TrayCLockWClass,nil);    end；           (4)EnableOrDisable过程代码如下：    procedure TForm1.EnableOr

11、Disable(Sender:TOBject);    begin    GetHandles;    if TCheckBox(Sender). Checked then    case TCheckBox(Sender). Tag of    0: EnableWindow(Wnd0, False);    1: EnableWindow(Wnd, Fa

12、lse);    2: EnableWindow(Wnd, False);    3: EnableWindow(Wnd3, False);    4: EnableWindow(Wnd4, False);    end    else    case TCheckBox(Sender). Tag of    0: E

13、nableWindow(Wnd0, True);    1: EnableWindow(Wnd, True);    2: EnableWindow(Wnd, True);    3: EnableWindow(Wnd3, True);    4: EnableWindow(Wnd4, True);    end;    end;  &#

14、160;        (5)HideOrShow过程代码如下：    procedure TForm1.HideOrShow(Sender:TObject);    begin    GetHandles;    if TCheckBox(Sender). Checked then    case TCheckBox(Send

15、er). Tag of    0: ShowWindow(Wnd0,SWHIDE);    1: ShowWindow(Wnd,SWHIDE);    2: ShowWindow(Wnd,SWHIDE);    3: ShowWindow(Wnd3,SWHIDE);    4: ShowWindow(Wnd4,SWHIDE);    end 

16、60;  else    case TCheckBox(Sender). Tag of    0: ShowWindow(Wnd0,SWShow);    1: ShowWindow(Wnd,SWShow);    2: ShowWindow(Wnd,SWShow);    3: ShowWindow(Wnd3,SWShow);    4

17、: ShowWindow(Wnd4,SWShow);    end;    end;           (6)FormClose事件代码如下：/将Windows任务栏恢复到正常状态；    procedure TForm1.FormClose(Sender:TObject; var Action: TCloseAction);    v

18、ar i:Integer;    begin    for i:=0 to 4 do    begin    EnableWindow(Wndi,True);    ShowWindow(Wndi,SWShow);    end;    end;           (7)按F9运行程序。以上程序在Delphi3.0/4.0、Windows95/98简体中文版环境下调试通过。