zoukankan      html  css  js  c++  java
  • Delphi 最小化托盘

    2009-07-16 11:30

    uses ShellAPI;

    const
        WM_BARICON=WM_USER+200;
        sc_DragMove:longint=$F012;
        WM_ACTIVE_CLIENT = WM_USER + 1000;

    public

    procedure message WM_SYSCOMMAND;
    proceduremessage WM_BARICON;

    procedure
    var



    begin
    if Message.WParam = SC_CLOSE then //关闭窗口
    begin
        Client.Close;
        exit;
    end;
    if Message.WParam = SC_ICON then //最小化到托盘区
        begin
        //如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标
          lpData := new(PNotifyIconDataA);
          lpData.cbSize := 88;
         // SizeOf(PNotifyIconDataA);
          lpData.Wnd := Client.Handle;
          lpData.hIcon := application.Icon.Handle;
          lpData.uCallbackMessage := WM_BARICON;
          lpData.uID :=0;
          lpData.szTip := '紫金软件';
          lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
          Shell_NotifyIcon(NIM_ADD,lpData);
          dispose(lpData);
          Client.Visible := False;


    end
    else
    begin
    //如果是其它的SystemCommand消息则调用系统缺省处理函数处理之。
        DefWindowProc(Handle,Message.Msg,Message.WParam,Message.LParam);

    end;
    end;


    var

    begin
    //if (Message.LParam = WM_RBUTTONDOWN) then //鼠标右键
    if (Message.LParam = WM_LBUTTONDOWN) then
    begin
    //如果用户点击任务栏图标则将图标删除并回复窗口。
        lpData := new(PNotifyIconDataA);
        lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);
        lpData.Wnd := Client.Handle;
        lpData.hIcon := application.Icon.Handle;
        lpData.uCallbackMessage := WM_BARICON;
        lpData.uID :=0;
        lpData.szTip := '紫金软件';
        lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
        Shell_NotifyIcon(NIM_DELETE,lpData);
        dispose(lpData);
        Client.Visible := True;

    end;
    end;

  • 相关阅读:
    Beyond_Compare 4.2.3中文版下载及密钥(亲测可用)
    ORA-0131:Insufficient privileges(Oracle授予用户DEBUG权限)
    常见正则表达式
    MySQL导入导出SQL文件(txt文件)
    存储过程(总结)
    怎样优化数据更新、访问量大的数据库(总结)
    索引原理(平衡树数据结构)
    Oracle面试题
    Linux系统没有IP地址
    iwlist/iwconfig/iw命令
  • 原文地址:https://www.cnblogs.com/beeone/p/1846932.html
Copyright © 2011-2022 走看看