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

Posted 2022-07-22 过程

篇首语：盛年不重来，一日难再晨，及时当勉励，岁月不待人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全利用Delphi全面控制Windows任务栏[2]相关的知识，希望对你有一定的参考价值。

利用Delphi全面控制Windows任务栏[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

( )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等编程工具但应注意语法变量类型等不同要求  cha138/Article/program/Delphi/201311/8479

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

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