看楼主这是用的拖盘控件吧,其实拖盘就几句代码的事,可以自己写。
//建立拖盘
with FTrayIcon do
begin
cbSize := sizeof(TNotifyIconData);
Wnd := Handle;
uID := 1;
uFlags := NIF_ICON OR NIF_TIP OR NIF_MESSAGE;
uCallbackMessage := WM_TrayIcon;
hIcon := Application.Icon.Handle;
StrCopy(szTip,PChar(Application.Title));
end;
Shell_NotifyIcon(NIM_ADD,@FTrayIcon);
ShowWindow(Application.Handle,SW_Hide);
//显示拖盘
Shell_NotifyIcon(NIM_DELETE,@FTrayIcon);
ShowWindow(Application.Handle,SW_SHOW);
//拖盘消息
procedure WMTrayIcon(var AMsg: TMessage);
var
Pt: TPoint;
begin
if AMsg.LParam = WM_LBUTTONDOWN then
begin
//
end
else if AMsg.LParam = WM_RBUTTONDOWN then
begin
//
end;
end;