利用Delphi全面控制Windows任務(wù)欄

1、利用Delphi全面控制Windows任務(wù)欄     您正在瀏覽的計(jì)算機(jī)論文是利用Delphi全面控制Windows任務(wù)欄                                    

2、60;  使用Windows95/NT/98操作系統(tǒng)的用戶知道：Windows正常啟動(dòng)后，在電腦屏幕下方出現(xiàn)一塊 任務(wù)欄。從系統(tǒng)功能角度而言，整個(gè)任務(wù)欄包括幾個(gè)不同的子區(qū)域，從左至右依次是：開始 按鈕、應(yīng)用程序切換區(qū)(Application Switch Bar)、任務(wù)欄通知區(qū)(Notification Area)以 及任務(wù)欄時(shí)鐘。與其它Windows應(yīng)用程序相同，任務(wù)欄程序(systray.exe)由幾個(gè)不同的窗體 組成，這些窗體是具有各自的窗口類名、顯示方式等信息。因此，只要得到有關(guān)窗口信息， 即可通過編程全面控制Windows任務(wù)欄的不同區(qū)域。   

3、;        1. 編程思想           (1)任務(wù)欄窗體的窗口信息為：           任務(wù)欄的窗口類名是：ShellTrayWnd。           開始按鈕的窗口類名是：Button。 

4、0;         應(yīng)用程序切換區(qū)的窗口類名是：ReBarWindow32。           任務(wù)欄通知區(qū)的窗口類名是：TrayNotifyWnd。           任務(wù)欄時(shí)鐘的窗口類名是：TrayClockWClass。       &#

5、160;   (2)調(diào)用FindWindow函數(shù)得到任務(wù)欄的窗口句柄。           (3)調(diào)用FindWindowEx函數(shù)得到任務(wù)欄各子區(qū)域的窗口句柄。           (4)根據(jù)窗口句柄，調(diào)用ShowWindow函數(shù)控制任務(wù)欄各區(qū)域顯示或隱藏        (show/hide)；調(diào)用En ableWin

6、dow函數(shù)控制任務(wù)欄各區(qū)域有效或無效(enabled/disabled)。           2. 編程方法           (1)在Delphi3.0 IDE中新建工程Project1, Project1中包含F(xiàn)orm1, 窗體如下圖所示：           (2)定義窗口句柄數(shù)組：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);    /得到應(yīng)用程序切換區(qū)的窗口句柄；    Wnd:=FindWindow(ShellTrayWnd,nil);    Wnd:=FindWindowEx(Wnd,HWND(0),ReBa

9、rWindow32,nil);    /得到任務(wù)欄通知區(qū)的窗口句柄；    Wnd3:=FindWindow(ShellTrayWnd,nil);    Wnd3:=FindWindowEx(Wnd3,HWND(0),TrayNotifyWnd,nil);    /得到任務(wù)欄時(shí)鐘的窗口句柄；    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任務(wù)欄恢復(fù)到正常狀態(tài)；    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運(yùn)行程序。以上程序在Delphi3.0/4.0、Windows95/98簡(jiǎn)體中文版環(huán)境下調(diào)試通過。