procedure TfrmMain.WMSysCommand(var Msg: TMessage); beginif Msg.WParam = SC_ICON thenSelf.Visible := FalseelseDefWindowProc(Self.Handle, Msg.Msg, Msg.WParam, Msg.LParam);end;procedure TfrmMain.WMTrayMsg(var Msg: TMessage);//声明托盘消息varp: TPoint;begincase Msg.LParam ofWM_LBUTTONDOWN: Self.Visible := True;   //显示窗体
        WM_RBUTTONDOWN:beginSetForegroundWindow(Self.Handle);   //把窗口提前
            GetCursorPos(p);pm1.Popup(p.X, p.Y);end;end;end;

  with NotifyIcon dobegincbSize := SizeOf(TNotifyIconData);Wnd := Self.Handle;uID := 1;uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP;   //图标、消息、提示信息uCallbackMessage := WM_TRAYMSG;hIcon := Application.Icon.Handle;szTip := 'erp服务';end;Shell_NotifyIcon(NIM_ADD, @NotifyIcon);//去掉关闭按钮EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ShellAPI, Menus;constWM_TRAYMSG = WM_USER + 101;typeTForm1 = class(TForm)pm1: TPopupMenu;N1: TMenuItem;procedure FormDestroy(Sender: TObject);procedure FormCreate(Sender: TObject);privateNotifyIcon: TNotifyIconData;procedure WMTrayMsg(var Msg: TMessage); message WM_TRAYMSG;    //声明托盘消息procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormDestroy(Sender: TObject);
beginShell_NotifyIcon(NIM_DELETE, @NotifyIcon);
end;procedure TForm1.FormCreate(Sender: TObject);
beginwith NotifyIcon dobegincbSize := SizeOf(TNotifyIconData);Wnd := Self.Handle;uID := 1;uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP;   //图标、消息、提示信息uCallbackMessage := WM_TRAYMSG;hIcon := Application.Icon.Handle;szTip := 'erp服务';end;Shell_NotifyIcon(NIM_ADD, @NotifyIcon);//去掉关闭按钮EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
end;{ TForm1 }procedure TForm1.WMSysCommand(var Msg: TMessage);
beginif Msg.WParam = SC_ICON thenSelf.Visible := FalseelseDefWindowProc(Self.Handle, Msg.Msg, Msg.WParam, Msg.LParam);
end;procedure TForm1.WMTrayMsg(var Msg: TMessage);
varp: TPoint;
begincase Msg.LParam ofWM_LBUTTONDOWN: Self.Visible := True;   //显示窗体
    WM_RBUTTONDOWN:beginSetForegroundWindow(Self.Handle);   //把窗口提前
      GetCursorPos(p);pm1.Popup(p.X, p.Y);end;end;end;end.