1、推荐下载关于Delphi全面控制Windows任务栏键入文字关于 Delphi 全面控制 Windows 任务栏关于 Delphi 全面控制 Windows 任务栏使用 Windows95/NT/98 操作系统的用户知道:Windows 正常启动后,在电脑屏幕下方出现一块 任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是:开始 按钮、应用程序切换区(Application Switch Bar)、任务栏通知区(Notification Area)以 及任务栏时钟。与其它 Windows 应用程序相同,任务栏程序(systray.exe)由几个不同的窗体 组成,这些窗体
2、是具有各自的窗口类名、显示方式等信息。因此,只要得到有关窗口信息, 即可通过编程全面控制 Windows 任务栏的不同区域。?1. 编程思想?(1)任务栏窗体的窗口信息为:?1键入文字任务栏的窗口类名是:ShellTrayWnd。?开始按钮的窗口类名是:Button。?应用程序切换区的窗口类名是:ReBarWindow32。?任务栏通知区的窗口类名是:TrayNotifyWnd。?任务栏时钟的窗口类名是:TrayClockWClass。?(2)调用 FindWindow 函数得到任务栏的窗口句柄。?(3)调用 FindWindowEx 函数得到任务栏各子区域的窗口句柄。?(4)根据窗口句柄,调
3、用 ShowWindow 函数控制任务栏各区域显示或隐藏(show/hide);调用 En ableWindow 函数控制任务栏各区域有效或无效(enabled/disabled)。?2键入文字2. 编程方法?(1)在 Delphi3.0 IDE 中新建工程 Project1, Project1 中包含 Form1, 窗体如下图所示:(2)定义窗口句柄数组:Wnd:array0.4 of THandle;?(3)GetHandles 过程代码如下:?procedure TForm1.GetHandles;?begin?/得到 Tray Bar 的窗口句柄;?Wnd0:=FindWindow(
4、ShellTrayWnd ,nil);?3键入文字/得到开始按钮的窗口句柄;?Wnd1:=FindWindow( ShellTrayWnd ,nil);?Wnd1:=FindWindowEx(Wnd1,HWND(0), Button ,nil);?/得到应用程序切换区的窗口句柄;?Wnd2:=FindWindow( ShellTrayWnd ,nil);?Wnd2:=FindWindowEx(Wnd2,HWND(0), ReBarWindow32 ,nil);?/得到任务栏通知区的窗口句柄;?Wnd3:=FindWindow( ShellTrayWnd ,nil);?Wnd3:=FindWin
5、dowEx(Wnd3,HWND(0), TrayNotifyWnd ,nil);?4键入文字/得到任务栏时钟的窗口句柄;?Wnd4:=FindWindow( ShellTrayWnd ,nil);?Wnd4:=FindWindowEx(Wnd4,HWND(0), TrayNotifyWnd ,nil);?Wnd4:=FindWindowEx(Wnd4,HWND(0), TrayCLockWClass ,nil);?end;?(4)EnableOrDisable 过程代码如下:?procedure TForm1.EnableOrDisable(Sender:TOBject);?begin?5键入
6、文字最新安全管理系统 delphi 论文大家好,欢迎来到,小编今天为大家带来了安全管理系统 delphi 论文,希望大家喜欢!目录引言 11 学生安全管理系统 11.1 学生安全管理系统开发的背景 11.2 学生安全管理系统的发展现状和未来.26键入文字2 新华校园学生安全管理系统分析 32.1 软件的需求分析 32.2 开发设计思想 52.3 分析建模 52.3.1 用实体-关系图进行数据建模 52.4 数据库设计和实现 62.4.1 数据库表的设计 72.5 用户界面设计 93 系统各功能模块的实现 97键入文字3.1 系统的总体结构 93.2 数据库连接模块 113.3 考勤模块 113
7、.3.1 卡信息录入 113.3.2 导入打卡信息 123.3.3 导出打卡信息 143.3.4 考勤信息录入 163.3.5 卡信息识别 168键入文字3.4 统计检索模块 163.4.1 考勤信息融合 173.4.2 学生考勤状态信息检索 183.4.3 学生考勤状态信息 183.4.4 教工、保安考勤信息 193.5 档案信息模块 203.5.1 学生、教工、保安资料以及对其的信息检索 203.6 邮件发送模块 209键入文字3.6.1 监护人资料管理 213.6.2 邮件管理 213.6.3 发送邮件 223.6.4 邮件群发 244 系统测试 254.1 测试环境 254.2 测试过
8、程和结果 255 原来系统的分析 255.1 原来系统的简介 2510键入文字5.2 新系统对原系统的比较 266 小结 277 谢辞 278(5)HideOrShow 过程代码如下:?procedure TForm1.HideOrShow(Sender:TObject);?begin?GetHandles;?if TCheckBox(Sender). Checked then?11键入文字case TCheckBox(Sender). Tag of?0: ShowWindow(Wnd0,SWHIDE);?1: ShowWindow(Wnd1,SWHIDE);?2: ShowWindow(Wn
9、d2,SWHIDE);?3: ShowWindow(Wnd3,SWHIDE);?4: ShowWindow(Wnd4,SWHIDE);?end?else?12键入文字case TCheckBox(Sender). Tag of?0: ShowWindow(Wnd0,SWShow);?1: ShowWindow(Wnd1,SWShow);?2: ShowWindow(Wnd2,SWShow);?3: ShowWindow(Wnd3,SWShow);?4: ShowWindow(Wnd4,SWShow);?end;?end;?(6)FormClose 事件代码如下:/将 Windows 任务栏恢复
10、到正常状态;?13键入文字procedure TForm1.FormClose(Sender:TObject; var Action: TCloseAction);?var i:Integer;?begin?for i:=0 to 4 do?begin?EnableWindow(Wndi,True);?ShowWindow(Wndi,SWShow);?end;?14键入文字end;?(7)按 F9 运行程序。以上程序在 Delphi3.0/4.0、Windows95/98 简体中文版环境下调试通过。 ?(8)说明:本文所述方法同样适用于 VB、VC、BC、C+Builder 等编程工具,但应注意语法、 变量类型等不同要求。?相关推荐delphi 论文用 Delphi 开发数据库应用程序基础15
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1