推荐下载关于Delphi全面控制Windows任务栏.docx

推荐下载关于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