[[mzd]]

Код:

type TForm1 = class(TForm)
...
protected
 PROCEDURE MYWMNOTIFYICON(VAR Message: TMessage); MESSAGE MYWM_NOTIFYICON;
...
FUNCTION MyTaskBarAddIcon(wnd: HWND; uID: integer; Icon: HICON; S: STRING): Boolean;
VAR tnid: TNOTIFYICONDATA;
BEGIN
  tnid.cbSize := SizeOf(TNOTIFYICONDATA);
  tnid.Wnd := wnd;
  tnid.uID := uID;
  tnid.uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP;
  tnid.uCallbackMessage := MYWM_NOTIFYICON;
  tnid.hIcon := Icon;
  Lstrcpyn(tnid.szTip, PChar(S), SizeOf(tnid.szTip));
  Result := Shell_NotifyIcon(NIM_ADD, @tnid);
END;

FUNCTION MyTaskBarDeleteIcon(wnd: HWND; uID: integer): Boolean;
VAR tnid: TNOTIFYICONDATA;
BEGIN
  tnid.cbSize := SizeOf(TNOTIFYICONDATA);
  tnid.Wnd := wnd;
  tnid.uID := uID;
  Result := Shell_NotifyIcon(NIM_DELETE, @tnid);
END;

FUNCTION MyTaskBarModifyIcon(wnd: HWND; uID: integer; Icon: HICON; S: STRING): Boolean;
VAR tnid: TNOTIFYICONDATA;
BEGIN
  tnid.cbSize := SizeOf(TNOTIFYICONDATA);
  tnid.Wnd := wnd;
  tnid.uID := uID;
  tnid.uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP;
  tnid.uCallbackMessage := MYWM_NOTIFYICON;
  tnid.hIcon := Icon;
  Lstrcpyn(tnid.szTip, PChar(S), SizeOf(tnid.szTip));
  Result := Shell_NotifyIcon(NIM_MODIFY, @tnid);
END;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
...
MyTaskBarAddIcon(Handle, MyIconID, Application.Icon.Handle, 'Имя проги');
...
end;
...
PROCEDURE TForm1.MYWMNOTIFYICON(VAR Message: TMessage);
VAR Cur: TPoint;
BEGIN
  IF Message.WParam = MyIconID THEN
    CASE Message.LParam OF
      WM_RBUTTONDOWN:
      BEGIN
        GetCursorPos(Cur);
        PopupMenu1.Popup(Cur.X, Cur.Y);
      END;
      WM_LBUTTONUP:
       BEGIN
        GetCursorPos(Cur);
        PopupMenu1.Popup(Cur.X, Cur.Y);
      END;
    END;
END;