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;