推荐下载关于Delphi全面控制Windows任务栏Word下载.docx
《推荐下载关于Delphi全面控制Windows任务栏Word下载.docx》由会员分享，可在线阅读，更多相关《推荐下载关于Delphi全面控制Windows任务栏Word下载.docx（23页珍藏版）》请在冰豆网上搜索。
区域。
?
1.编程思想?
（1）任务栏窗体的窗口信息为：
1
①任务栏的窗口类名是：
ShellTrayWnd。
②开始按钮的窗口类名是：
Button。
③应用程序切换区的窗口类名是：
ReBarWindow32。
④任务栏通知区的窗口类名是：
TrayNotifyWnd。
⑤任务栏时钟的窗口类名是：
TrayClockWClass。
（2）调用FindWindow函数得到任务栏的窗口句柄。
（3）调用FindWindowEx函数得到任务栏各子区域的窗口句柄。
（4）根据窗口句柄，调用ShowWindow函数控制任务栏各区域显示或隐藏
（show/hide）;
调用EnableWindow函数控制任务栏各区域有效或无效
（enabled/disabled）。
2
2.编程方法?
（1）在Delphi3.0IDE中新建工程Project1,Project1中包含Form1,窗体如下图所示：
（2）定义窗口句柄数组：
Wnd:
array[0..4]ofTHandle;
（3）GetHandles过程代码如下：
procedureTForm1.GetHandles;
begin?
//得到TrayBar的窗口句柄;
Wnd[0]:
=FindWindow（ShellTrayWnd,nil）;
3
//得到开始按钮的窗口句柄;
Wnd[1]:
=FindWindowEx（Wnd[1],HWND（0）,Button,nil）;
//得到应用程序切换区的窗口句柄;
Wnd[2]:
Wnd[2]]:
=FindWindowEx（Wnd[2],HWND（0）,ReBarWindow32,nil）;
//得到任务栏通知区的窗口句柄;
Wnd[3]:
=FindWindowEx（Wnd[3],HWND（0）,TrayNotifyWnd,nil）;
4
//得到任务栏时钟的窗口句柄;
Wnd[4]:
=FindWindowEx（Wnd[4],HWND（0）,TrayNotifyWnd,nil）;
=FindWindowEx（Wnd[4],HWND（0）,TrayCLockWClass,nil）;
end;
（4）EnableOrDisable过程代码如下：
procedureTForm1.EnableOrDisable（Sender:
TOBject）;
5
最新安全管理系统delphi论文
大家好，欢迎来到，小编今天为大家带来了安全管理系统delphi论文，希望大家喜
欢!
目录
引言1
1学生安全管理系统1
1.1学生安全管理系统开发的背景1
1.2学生安全管理系统的发展现状和未来.2
6
2新华校园学生安全管理系统分析3
2.1软件的需求分析3
2.2开发设计思想5
2.3分析建模5
2.3.1用实体-关系图进行数据建模5
2.4数据库设计和实现6
2.4.1数据库表的设计7
2.5用户界面设计9
3系统各功能模块的实现9
7
3.1系统的总体结构9
3.2数据库连接模块11
3.3考勤模块11
3.3.1卡信息录入11
3.3.2导入打卡信息12
3.3.3导出打卡信息14
3.3.4考勤信息录入16
3.3.5卡信息识别16
8
3.4统计检索模块16
3.4.1考勤信息融合17
3.4.2学生考勤状态信息检索18
3.4.3学生考勤状态信息18
3.4.4教工、保安考勤信息19
3.5档案信息模块20
3.5.1学生、教工、保安资料以及对其的信息检索20
3.6邮件发送模块20
9
3.6.1监护人资料管理21
3.6.2邮件管理21
3.6.3发送邮件22
3.6.4邮件群发24
4系统测试25
4.1测试环境25
4.2测试过程和结果25
5原来系统的分析25
5.1原来系统的简介25
10
5.2新系统对原系统的比较26
6小结27
7谢辞27
8（5）HideOrShow过程代码如下：
procedureTForm1.HideOrShow（Sender:
TObject）;
GetHandles;
ifTCheckBox（Sender）.Checkedthen?
11
caseTCheckBox（Sender）.Tagof?
0:
ShowWindow（Wnd[0],SWHIDE）;
1:
ShowWindow（Wnd[1],SWHIDE）;
2:
ShowWindow（Wnd[2],SWHIDE）;
3:
ShowWindow（Wnd[3],SWHIDE）;
4:
ShowWindow（Wnd[4],SWHIDE）;
end?
else?
12
ShowWindow（Wnd[0],SWShow）;
ShowWindow（Wnd[1],SWShow）;
ShowWindow（Wnd[2],SWShow）;
ShowWindow（Wnd[3],SWShow）;
ShowWindow（Wnd[4],SWShow）;
（6）FormClose事件代码如下：
//将Windows任务栏恢复到正常状态;
13
procedureTForm1.FormClose（Sender:
TObject;
varAction:
TCloseAction）;
vari:
Integer;
fori:
=0to4do?
EnableWindow（Wnd[i],True）;
ShowWindow（Wnd[i],SWShow）;
14
（7）按F9运行程序。
以上程序在Delphi3.0/4.0、Windows95/98简体中文版环境下调
试通过。
?
（8）说明：
本文所述方法同样适用于VB、VC、BC、C++Builder等编程工具，但应注
意语法、变量类型等不同要求。
相关推荐
delphi论文用Delphi开发数据库应用程序基础
15
升级会员 