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

上传人:b****4 文档编号:18405647 上传时间:2022-12-16 格式:DOCX 页数:23 大小:17.53KB
下载 相关 举报
推荐下载关于Delphi全面控制Windows任务栏Word下载.docx_第1页
第1页 / 共23页
推荐下载关于Delphi全面控制Windows任务栏Word下载.docx_第2页
第2页 / 共23页
推荐下载关于Delphi全面控制Windows任务栏Word下载.docx_第3页
第3页 / 共23页
推荐下载关于Delphi全面控制Windows任务栏Word下载.docx_第4页
第4页 / 共23页
推荐下载关于Delphi全面控制Windows任务栏Word下载.docx_第5页
第5页 / 共23页
点击查看更多>>
下载资源
资源描述

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

《推荐下载关于Delphi全面控制Windows任务栏Word下载.docx》由会员分享,可在线阅读,更多相关《推荐下载关于Delphi全面控制Windows任务栏Word下载.docx(23页珍藏版)》请在冰豆网上搜索。

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

区域。

?

 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

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 初中教育 > 学科竞赛

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1