Работа с треем
Сорри за настойчивость, писал о проблеме в другом разделе...ответа не дождался, видимо не заметили мой вопрос :(
Вобщем, мне нужно засунуть иконку в трей и в дальнейшем с ней работать. Засунуть в трей я смог. Но вот работать с ней не получается =(
Код:
#define WM_ShellNote (WM_APP+100)
#define IDC_MYICON 1006
void __fastcall TForm1::Button1Click(TObject *Sender)
{
memset(&iconData, 0, sizeof(iconData));
iconData.cbSize = sizeof(NOTIFYICONDATA);
iconData.hWnd = Form1->Handle;
iconData.hIcon = LoadIcon(NULL, MAKEINTRESOURCE(32516));
iconData.uCallbackMessage = WM_ShellNote;
iconData.uID = IDC_MYICON;
iconData.uFlags = NIF_MESSAGE | NIF_ICON | NIF_TIP;
lstrcpyn(iconData.szTip, "Hint", sizeof(iconData.szTip)/sizeof(iconData.szTip[0]));
Shell_NotifyIconA(NIM_ADD, &iconData);
}
LRESULT CALLBACK TForm1::MyNotify(TMessage &Msg)
{
switch(Msg.LParam)
{
case WM_RBUTTONUP:
Form1->Caption="WM_RBUTTONUP";
break;
case WM_LBUTTONUP:
Form1->Caption="WM_LBUTTONUP";
break;
default:
break;
}
}
Никак не пойму почему нет реакции на мышь.
Спасайте! :confused: |
