windows的任务栏不可以 利用Delphi全面控制Windows任务栏[2]

利用Delphi全面控制Windows任务栏[2]  

    ( )EnableOrDisable过程代码如下  procedure TForm EnableOrDisable(Sender:TOBject);begin　GetHandles;　if TCheckBox(Sender) Checked then　　case TCheckBox(Sender) Tag of　　　 : EnableWindow(Wnd［ ］ False);　　　 : EnableWindow(Wnd［ ］ False);　　　 : EnableWindow(Wnd［ ］ False);　　　 : EnableWindow(Wnd［ ］ False);　　　 : EnableWindow(Wnd［ ］ False);　　　end　else　　case TCheckBox(Sender) Tag of　　　 : EnableWindow(Wnd［ ］ True);　　　 : EnableWindow(Wnd［ ］ True);　　　 : EnableWindow(Wnd［ ］ True);　　　 : EnableWindow(Wnd［ ］ True);　　　 : EnableWindow(Wnd［ ］ True);　　　end;　end;　　( )HideOrShow过程代码如下  procedure TForm HideOrShow(Sender:TObject);begin　GetHandles;　if TCheckBox(Sender) Checked then　　case TCheckBox(Sender) Tag of　　　 : ShowWindow(Wnd［ ］ SWHIDE);　　　 : ShowWindow(Wnd［ ］ SWHIDE);　　　 : ShowWindow(Wnd［ ］ SWHIDE);　　　 : ShowWindow(Wnd［ ］ SWHIDE);　　　 : ShowWindow(Wnd［ ］ SWHIDE);　　end　else　　case TCheckBox(Sender) Tag of　　　 : ShowWindow(Wnd［ ］ SWShow);　　　 : ShowWindow(Wnd［ ］ SWShow);　　　 : ShowWindow(Wnd［ ］ SWShow);　　　 : ShowWindow(Wnd［ ］ SWShow);　　　 : ShowWindow(Wnd［ ］ SWShow);　　end;　end;　　( )FormClose事件代码如下 //将Windows任务栏恢复到正常状态  procedure TForm FormClose(Sender:TObject; var Action: TCloseAction);　var i:Integer;　begin　　for i:= to do　　begin　　　EnableWindow(Wnd［i］ True);　　　ShowWindow(Wnd［i］ SWShow);　　end;end;　　( )按F 运行程序 以上程序在Delphi / Windows / 简体中文版环境下调试通过 　　( )说明 本文所述方法同样适用于VB VC BC C++Builder等编程工具 但应注意语法 变量类型等不同要求  lishixinzhi/Article/program/Delphi/201311/8479