delphi最小化到系统托盘

最新推荐文章于 2021-02-06 17:15:45 发布

读万卷书不如行万里路呀

最新推荐文章于 2021-02-06 17:15:45 发布

阅读量3.6k

点赞数

分类专栏：杂集

本文链接：https://blog.csdn.net/nanfeiyannan/article/details/8257553

版权

杂集专栏收录该内容

102 篇文章 0 订阅

订阅专栏

const
  WM_BARICON=WM_USER+200;
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
    procedure WMBarIcon(var Message:TMessage);message WM_BARICON;
procedure TForm1.WMSysCommand(var Message:TMessage);
var
  lpData:PNotifyIconData;
begin
  if Message.WParam = SC_ICON then
  begin
    //如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标
    lpData := New(PNotifyIconDataW);
    lpData.cbSize := 88;
    //SizeOf(PNotifyIconDataA);
    lpData.Wnd := Form1.Handle;
    lpData.hIcon := Form1.Icon.Handle;
    lpData.uCallbackMessage := WM_BARICON;
    lpData.uID :=0;
    lpData.szTip := 'xxx服务后台程序';
    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(PNotifyIconDataW);
    lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);
    lpData.Wnd := Form1.Handle;
    lpData.hIcon := Form1.Icon.Handle;
    lpData.uCallbackMessage := WM_BARICON;
    lpData.uID :=0;
    lpData.szTip := 'xxx服务后台程序';
    lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    Shell_NotifyIcon(NIM_DELETE,lpData);
    dispose(lpData);
    Form1.Visible := True;
  end;
end;