现在很多的应用程序都有这样一种功能,当用户选择最小化窗口时,窗口不是象平常那样最小化到任务栏上,而是“最小化”成一个任务栏图标。象FoxMail
3.0 NetVampire
3.0等都提供了这样的功能。实现这样的功能实际上并不复杂,在窗口最小化时,窗口会发出WM_SYSCOMMAND消息,你只要需要截取Windows的WM_SYSCOMMAND消息,在窗口最小化时隐藏窗口并调用WindowsAPI函数Shell_NotifyIcon将定义的图标添加到任务栏上,Shell_NotifyIcon的函数定义是这样的:function
Shell_NotifyIcon(dwMessage:DWORD; lpData: PNotifyIconData): BOOL; stdcall;
其中的参数dwMessage指定Shell_NotifyIcon函数的操作,可以是NIM_ADD NIM_DELETE
NIM_MODIFY三个值中的一个,分别对应添加图标、删除图标、修改图标的动作。

---- 参数lpData指向的PNotifyIconData结构的定义如下:

_NOTIFYICONDATAW =
record 
  
cbSize: DWORD; 
   Wnd: HWND; 
   uID: UINT; 
   uFlags:
UINT; 
   uCallbackMessage: UINT; 
   hIcon: HICON; 
   szTip: array
[0..63] of WideChar; 
end;

TNotifyIconData = _NOTIFYICONDATAW; 
----
在这个结构中Wnd指明所属的窗口,UCallbackMessage指明回调消息,如果指明了Wnd和
uCallbackMessage,则当用户对任务栏图标有动作(如点击图标,在图标上移动光标等)。系统都会发送uCallbackMessage消息给Wnd指定的窗口。hIcon是要添加的图标的句柄,szTip
是图标的提示行(就是当移动光标到图标上,出现的一个小黄方框内出现的文字)。消息。实现上面的功能,最主要的是要处理WM_SYSCOMMAND消息和自定义的图标消息,这些消息在Delphi中并没有相应的事件。这里就需要使用到Delphi的自定义消息处理功能来截取并处理这些消息。

----
首先看下面的程序。在执行程序之前,首先要改变Form1的Icon属性,给Form1装入一个图标,否则在任务栏上会出现一块空白。

unit Unit1; 
interface 
uses 
Windows, Messages, SysUtils,  
Classes, Graphics, Controls, Forms, 
Dialogs,ShellAPI;

const 
WM_BARICON=WM_USER+200;

type 
TForm1 = class(TForm) 
private 
    procedure
WMSysCommand(var 
Message:
TMessage); message WM_SYSCOMMAND; 
    procedure
WMBarIcon(var 
Message:TMessage);message WM_BARICON; 
   { Private
declarations } 
public 
  
{ Public declarations } 
end;

var 
Form1:
TForm1;

implementation

{$R *.DFM} 
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 := 'Samples'; 
    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;

procedure
TForm1.WMBarIcon(var Message:TMessage); 
var 
   lpData:PNotifyIconData; 
begin 
if (Message.LParam = WM_LBUTTONDOWN) 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 := 'Samples'; 
    lpData.uFlags :=
NIF_ICON or NIF_MESSAGE or NIF_TIP; 
   
Shell_NotifyIcon(NIM_DELETE,lpData); 
    dispose(lpData); 
    Form1.Visible := True; 
   end; 
end;

end. 
----
运行上面的程序,点击程序窗口标题栏上的最小化按钮,你就可以看到窗口被“最小化”成了一个任务栏图标,点击图标,窗口又会恢复原来的状态。

----
从上面的程序可以看到,Delphi的自定义消息处理功能的实现也是十分简单的,首先在Form类的Private定义中加入自定义消息处理函数的定义,定义的描述如下:

procedure UserPro(Var
Message: 
TMessage):message
WindowsMessage 
其中UserPro是用户自定义消息处理函数的名称, 
WindowsMessage是Windows消息常量或自定义消息常量。 
---- 然后在程序中加入消息处理函数,函数的一般格式如下:

Procedure UserClass.UserPro(Var Message:TMessage); 
  
var 
//加入定义 
  
Begin 
//加入程序语句 
  
End; 
   其中UserClass是封装自定义消息处理函数的类的名称。 
----
最后,Delphi的自定义消息处理函数要涉及到Windows的消息的结构,在这里我就不多说了,大家可以参考Windows
API帮助和Delphi的相关帮助信息。相信大家如果掌握了Delphi的自定义消息处理函数,一定可以编写出象VB一样简洁,象C++一样功能强大的程序来的。

delphi如何让程序最小化到任务栏(转)的更多相关文章

  1. Delphi如何让程序最小化到任务栏(截取WM_SYSCOMMAND后,调用Shell_NotifyIcon)

    现在很多的应用程序都有这样一种功能,当用户选择最小化窗口时,窗口不是象平常那样最小化到任务栏上,而是“最小化”成一个任务栏图标.象FoxMail 3.0 NetVampire 3.0等都提供了这样的功 ...

  2. delphi如何让程序最小化到任务栏(使用Shell_NotifyIcon API函数)

    现在很多的应用程序都有这样一种功能,当用户选择最小化窗口时,窗口不是象平常那样最小化到任务栏上,而是“最小化”成一个任务栏图标.象FoxMail 3.0 NetVampire 3.0等都提供了这样的功 ...

  3. C# 设置程序最小化到任务栏右下角,鼠标左键单击还原,右键提示关闭程序

    首先设置程序最小化到任务栏右下角 先给窗口添加一个notifyIcon控件 为notifyIcon控件设置ICO图标(不设置图标将无法在任务栏显示) 给notifyIcon控件添加点击事件 然后是最小 ...

  4. WPF程序最小化到任务通知栏

    我们通常使用的桌面软件,都可以最小化到任务通知栏,并且可以从任务通知栏再打开当前软件,或者通过软件的快捷方式从任务通知栏呼出. 我们可以通过下面的方式把WPF程序最小化到任务栏.由于WPF并没有实现N ...

  5. delphi中最小化其他程序及所有程序最小化(使用 shell.minimizeAll 和自己寻找窗口这两种办法)

    1.所有程序最小化 uses ComObj;   var    shell : OleVariant; begin      shell := CreateOleObject('Shell.Appli ...

  6. VC++ 实现VC程序启动时最小化到任务栏(完美解决闪烁问题)

    之前写的一个VC应用程序,是程序启动时就直接出现在任务栏, 窗体不出现,等用户点击任务栏图标再出现窗口.和一些防火墙什么的软件类似. 这种效果实现并不是很困难的,硬是找不到最好的.为什么呢? 首先,在 ...

  7. windows vbs启动多个应用程序并使程序最小化(显示桌面)

      windows vbs启动多个应用程序并使程序最小化(显示桌面) CreationTime--2018年7月26日11点18分 Author:Marydon 1.应用场景 每天开机后,都需要打开平 ...

  8. C# 程序启动最小化至任务栏及闪烁

    主要功能: C#让窗体最小化至任务栏,同时在系统托盘区的图标点击左键能显示窗体,并使窗体闪烁. 首先: 创建窗体应用程序,并添加控件NotifyIcon及ContextMenuStrip控件 Noti ...

  9. Directx11教程(21) 修正程序最小化异常bug

    原文:Directx11教程(21) 修正程序最小化异常bug       很长时间竟然没有注意到,窗口最小化时候,程序会异常,今天调试水面程序时,随意间最小化了窗口,发现程序异常了.经过调试,原来程 ...

随机推荐

  1. AXUre

    [ Javascript ] 一.javascript能用来干什么? 1.数据的验证. 2.对动态这本写到网页当中. 3.可以对事件做出响应. 4.可以读写html 中的内室. 5.可以检测浏览器 6 ...

  2. [转]使用scrapy进行大规模抓取

    原文:http://www.yakergong.net/blog/archives/500 使用scrapy有大概半年了,算是有些经验吧,在这里跟大家讨论一下使用scrapy作为爬虫进行大规模抓取可能 ...

  3. KI的斐波那契_DFS

    Description KI十分喜欢美丽而优雅的斐波那契数列,最近他新认识了一种斐波那契字符串,定义如下 f (0) = b, f (1) = a, f (2) = f (1) + f (0) = a ...

  4. 重写代码生成器支持模板(多层架构,MVC),多语言c#,java;支持mysql和sqlserver,动态编译

    多年前用过李天平前辈的,自己改过,后来李老师做动软了,不给源码,修改不是很方便.加上我目前需要转java方向,于是决定自己搞.到目前为止花了整整一个星期了,看看目前的成果. 最后是代码工程文件,用c# ...

  5. secureCRT的一些小知识

    secureCRT 是一个非常不错的终端软件,在嵌入式开发过程中经常使用到,所以了解一下其快捷键操作是非常有必要的,可以提高开发效率. 0.在secureCRT里切换不同的窗口:ctrl+tab.   ...

  6. guess number

    crossin的前面几章基本和LPTHW内容重合,因此我直接做了他前面的一个综合练习. 猜数游戏, 即系统随机记录一个数,根据用户猜的记录,如果正确则告知,且退出游戏,如不正确,则提示答案与用户输入的 ...

  7. (转) PowerDesigner中Table视图同时显示Code和Name

    PowerDesigner中Table视图同时显示Code和Name,像下图这样的效果: 实现方法:Tools-Display Preference

  8. Swift 编程语言自己实践 -自己在Xcode6 动手写20140603

    Swift 是什么,大家都回去百度或者Google,有的甚至认为是Taylor Swift(她是我的偶像),但是如果今天在百度百科里搜索绝对没有说是Apple最新推出的编程语言,因为是在2014年6月 ...

  9. MCMC: The Metropolis Sampler

    本文主要译自 MCMC: The Metropolis Sampler 正如之前的文章讨论的,我们可以用一个马尔可夫链来对目标分布 \(p(x)\) 进行采样,通常情况下对于很多分布 \(p(x)\) ...

  10. C# 调用百度翻译Api

    这是简单的界面.用的是wpf,winform也可以 具体的操作类 public partial class MainWindow : Window { string url = "" ...