推荐下载关于Delphi全面控制Windows任务栏.docx
- 文档编号:5418144
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:23
- 大小:17.53KB
推荐下载关于Delphi全面控制Windows任务栏.docx
《推荐下载关于Delphi全面控制Windows任务栏.docx》由会员分享,可在线阅读,更多相关《推荐下载关于Delphi全面控制Windows任务栏.docx(23页珍藏版)》请在冰豆网上搜索。
推荐下载关于Delphi全面控制Windows任务栏
[键入文字]
关于Delphi全面控制Windows任务栏
关于Delphi全面控制Windows任务栏
使用Windows95/NT/98操作系统的用户知道:
Windows正常启动后,在电脑屏幕下
方出现一块任务栏。
从系统功能角度而言,整个任务栏包括几个不同的子区域,从左
至右依次是:
开始按钮、应用程序切换区(ApplicationSwitchBar)、任务栏通知区
(NotificationArea)以及任务栏时钟。
与其它Windows应用程序相同,任务栏程序
(systray.exe)由几个不同的窗体组成,这些窗体是具有各自的窗口类名、显示方式等信
息。
因此,只要得到有关窗口信息,即可通过编程全面控制Windows任务栏的不同
区域。
?
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]:
=FindWindow(ShellTrayWnd,nil);?
Wnd[1]:
=FindWindowEx(Wnd[1],HWND(0),Button,nil);?
//得到应用程序切换区的窗口句柄;?
Wnd[2]:
=FindWindow(ShellTrayWnd,nil);?
Wnd[2]]:
=FindWindowEx(Wnd[2],HWND(0),ReBarWindow32,nil);?
//得到任务栏通知区的窗口句柄;?
Wnd[3]:
=FindWindow(ShellTrayWnd,nil);?
Wnd[3]:
=FindWindowEx(Wnd[3],HWND(0),TrayNotifyWnd,nil);?
4
[键入文字]
//得到任务栏时钟的窗口句柄;?
Wnd[4]:
=FindWindow(ShellTrayWnd,nil);?
Wnd[4]:
=FindWindowEx(Wnd[4],HWND(0),TrayNotifyWnd,nil);?
Wnd[4]:
=FindWindowEx(Wnd[4],HWND(0),TrayCLockWClass,nil);?
end;?
(4)EnableOrDisable过程代码如下:
?
procedureTForm1.EnableOrDisable(Sender:
TOBject);?
begin?
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);?
begin?
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
[键入文字]
caseTCheckBox(Sender).Tagof?
0:
ShowWindow(Wnd[0],SWShow);?
1:
ShowWindow(Wnd[1],SWShow);?
2:
ShowWindow(Wnd[2],SWShow);?
3:
ShowWindow(Wnd[3],SWShow);?
4:
ShowWindow(Wnd[4],SWShow);?
end;?
end;?
(6)FormClose事件代码如下:
//将Windows任务栏恢复到正常状态;?
13
[键入文字]
procedureTForm1.FormClose(Sender:
TObject;varAction:
TCloseAction);?
vari:
Integer;?
begin?
fori:
=0to4do?
begin?
EnableWindow(Wnd[i],True);?
ShowWindow(Wnd[i],SWShow);?
end;?
14
[键入文字]
end;?
(7)按F9运行程序。
以上程序在Delphi3.0/4.0、Windows95/98简体中文版环境下调
试通过。
?
(8)说明:
本文所述方法同样适用于VB、VC、BC、C++Builder等编程工具,但应注
意语法、变量类型等不同要求。
?
相关推荐
delphi论文用Delphi开发数据库应用程序基础
15
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 推荐 下载 关于 Delphi 全面 控制 Windows 任务栏
![提示](https://static.bdocx.com/images/bang_tan.gif)