Delphi 中最小化窗体是隐藏并在任务揽中显示图表和进程名
来源:互联网 发布:美图秀秀拼图软件 编辑:程序博客网 时间:2024/05/21 14:02
procedure TForm1.WMSysCommand(var Message:TMessage);
var
lpData:PNotifyIconData;
begin
if Message.WParam = SC_ICON then
begin
//如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);
lpData.Wnd := Form1.Handle;
lpData.hIcon := Form1.Icon.Handle;
lpData.uCallbackMessage := WM_BARICON;
lpData.uID :=0;
lpData.szTip := 'NBTOOLS';
lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,lpData);
dispose(lpData);
Form1.Visible := False;
end
else
begin
//如果是其它的SystemCommand消息则调用系统缺省处理函数处理之。
DefWindowProc(Form1.Handle,Message.Msg,Message.WParam,Message.LParam);
end;
end;
var
lpData:PNotifyIconData;
begin
if Message.WParam = SC_ICON then
begin
//如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);
lpData.Wnd := Form1.Handle;
lpData.hIcon := Form1.Icon.Handle;
lpData.uCallbackMessage := WM_BARICON;
lpData.uID :=0;
lpData.szTip := 'NBTOOLS';
lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_ADD,lpData);
dispose(lpData);
Form1.Visible := False;
end
else
begin
//如果是其它的SystemCommand消息则调用系统缺省处理函数处理之。
DefWindowProc(Form1.Handle,Message.Msg,Message.WParam,Message.LParam);
end;
end;
- Delphi 中最小化窗体是隐藏并在任务揽中显示图表和进程名
- Delphi显示和隐藏窗体
- Delphi中判断窗体最大化和最小化事件
- 在Delphi中隐藏程序进程
- C# 屏幕监控 自动截屏程序 主窗体隐藏,仅在进程中显示
- C# WinForm下,隐藏主窗体,只在进程管理器中显示进程,在任务栏,状态栏都不显示窗体的方法
- 在mfc中,设置一个隐藏菜单栏,工具栏,状态栏,最大化、最小化、关闭按钮的窗体
- 在mfc中,如何设置一个隐藏菜单栏,工具栏,状态栏,最大化、最小化、关闭按钮的窗体
- iOS轮询请求并在图表中动态显示
- iOS轮询请求并在图表中动态显示
- Delphi中捕捉窗体的最小化、最大化、还原消息
- vb中如何在任务管理器里面隐藏应用程序进程
- vb中如何在任务管理器里面隐藏应用程序进程
- c# 隐藏winform程序在任务管理器中进程
- c# 隐藏winform程序在任务管理器中进程
- 在Word中创建CommandBar并显示winform窗体
- qml中注册和使用C++对象,以及在qml中实现窗体最大最小化
- WINFORM是实现窗体最小化到系统托盘中
- 做好一个大项目好难
- 安全基地 E语言 教程
- 微软官方视频教程---组策略
- C#对ADO.NET数据库的简单操作
- 《中山大学汇编语言》视频教程下载地址
- Delphi 中最小化窗体是隐藏并在任务揽中显示图表和进程名
- 大学生求职要找对独门武器 四种资格认证受关注
- MIDlet签名以及出处鉴定和完整性认证
- Delphi 从任务栏中点击图标恢复窗体
- 现在的学生,太牛B了。。。。。
- Delphi 中找到系统进程并将进程KILL
- JSP三种页面跳转方式
- Google背后的IT架构策略揭秘
- [全国信息技术远程培训][网站建设][14讲][asf]