Контекстное меню для иконки в трее через WinApi

[3D Hunter]

Здравствуйте. Такая задача: как связать PopupMenu с иконкой в трее, созданной с помощью TNotifyIconData? Саму иконку я поместил. Проблема в том, как по щелчку правой кнопкой мыши вызвать PopupMenu?
Заранее спасибо.

[ОДИНОЧЕСТВО В СЕТИ]

.....
public
    { Public declarations }
    procedure WMICON(var msg: TMessage); message WM_MYICONNOTIFY;
.....


procedure TForm1.WMICON(var msg: TMessage);
var
  P: TPoint;
begin
  case msg.LParam of // обработка обратных сообщений
    WM_LBUTTONUP: //по нажатию левой клавиши, WM_RBUTTONUP по правой
      begin
        GetCursorPos(p);
        SetForegroundWindow(Application.MainForm.Handle);
        PopupMenu1.Popup(P.X, P.Y);
      end;
    WM_LBUTTONDBLCLK: RestoreItemClick(Self); //как Default
  end;
end;

....

так?

[VladimirVB]

Скачай книгу Юрия Ревича "Нестандартные приемы программирования на DELPHI". Начиная с главы 3 идет описание того, как при помощи Win API создать в системной трее иконку и связать ее с мышью.

[3D Hunter]

Спасибо большое вам обоим! Вы мне очень помогли!