Меню в чужом окне

[aMoraleZ]

Помогите разобраться! Внедряю свой пункт меню в _чужое_ приложение, делаю это так:
...
procedure TForm1.Button1Click(Sender: TObject);
var lh: Cardinal;
    pa: Pointer;
    r: integer;
begin
  {Ищем по заголовку}
  TheHWND := FindWindow(nil, PChar('Калькулятор'));
  if TheBatHWND <> 0 then
  begin
    TheMenu:= GetMenu(TheHWND);
    AppendMenu(TheMenu,MF_POPUP,PopupMenu1.Handle,'hello');
  end;
  sethook;
end;

Меню добавляется, но как теперь обрабатывать события этого меню? Делаю hook, в DLL:

function myhook(code, wParam, lParam : integer): Lresult; stdcall;
begin
  if code >= 0 then
  begin
    case code of
      MSGF_MENU:
      begin
        messagebox(0,'get it!','i get it!',mb_iconhand);
      end;
    end;
  end;
 result := CallNextHookEx(mHandle, code, wParam, lParam);
end;

procedure sethook;
begin
  mHandle:= SetWindowsHookEx(WH_SYSMSGFILTER, @myhook, hInstance, 0);
  if mHandle = 0 then
    messageBox(0,'Error','ERROR',mb_iconhand);
end;

messageBox выскакивает при нажатии на любое меню, а хотелось бы что бы на только то,
что создал я. Понимаю, что нужно смотреть lParam, но что там отслеживать?

Меню которое я добавляю имеет вид:
Мое меню
-Пункт один
-Пункт два
------------
-О программе

Нужно обрабатывать выбор каждого пункта. Прошу учесть, что меню именно в _чужом_ окне.

Спасибо.

[Антон (LogRus)]

aMoraleZ, Возникает вопрос почему ты не используешь своё TheMenu не посредственно типа того TheMenu.OnSomething = OnSomeThingDoFunction
и
другой вопрос разве нельзя навесить hook на конкретный пункт вроде каждый пункт меню отдельный объект.    Это я так про тестить ща немогу.(под Линью сижу).

[Антон (LogRus)]

можно повесить хук на WM_MEASUREITEM ему в параметрах передается структура по которой можно определить твоя кнопень нажалась или нет. Сам не пробовал.

[cg_spooler]

А нафига тебе каркулятор с твоим меню?

[Anonymous]

А нафига тебе каркулятор с твоим меню?

Конспирация батенька ) Это так для примера просто взято. А вообще, переделал так:
{*в программе: *}
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  TheHWND:= FindWindow(Nil,'Калькулятор!');
    if TheHWND <> 0 then TheHMENU:= GetMenu(TheHWND)
    else MessageBox(0,'Can`t find Calc window!','Error!',mb_iconhand);
  myPopUPMenu:= CreatePopUpmenu();
  InsertMenu(myPopUpMenu,0,MF_BYPOSITION,ID_MENU_1,'MenuItem1');
  InsertMenu(myPopUpMenu,1,MF_BYPOSITION,ID_MENU_2,'MenuItem2');
  InsertMenu(myPopUpMenu,2,MF_BYPOSITION,ID_MENU_3,'MenuItem3');
  AppendMenu(TheHMENU,MF_POPUP, myPopUpMenu,'Test');
  SetMenuHandler();
end;

В DLL вынесен hook:
{*в dll: *}

function MenuHandler(nCode, wParam, lParam: integer): lResult; stdcall;
begin
  if nCode = MSGF_MENU then
  begin
    mhMSGStruct:= PMSG(lParam)^;
    case mhMSGStruct.message of
    WM_LBUTTONDOWN:
      begin
        if (GetMenu(mhMSGStruct.hwnd) = GetMenu(FindWindow(Nil,'Калькулятор'))) then
         begin
           messagebox(0,PChar(inttostr(lo(mhMSGStruct.wParam))),'foo',mb_iconhand);
           result:= CallNextHookEx(mhHandle,nCode,wParam,lParam);
           Exit;
         end;
      end;
    else
      begin
        result:= CallNextHookEx(mhHandle,nCode,wParam,lParam);
        Exit;
      end;
    end;
  end;
  result:= CallNextHookEx(mhHandle,nCode,wParam,lParam);
end;

function SetMenuHandler(): boolean; stdcall;
begin
  mhHandle:= SetWindowsHookEx(WH_MSGFILTER, @MenuHandler, hInstance,0);
  if (mhHandle <> 0) then result:= false else
  result:= true;
end;

Меню добавляется, хук ловит клики мышью, но проблема в том, что после обработки
сообщения WM_LButtonDown оно попадет и в Calc, т.е допустим мое меню открылось и
перекрыло собой пару кнопок, так вот, после щелчка по пункту моего меню, хук его ловит,
но ловит этот щелчек и Сalc, и нажимается кнопка которую перекрыло собой мой меню,
как будто оно прозрачное. Как от этого избавиться. Нужно что бы на клики по меню,
срабатывал только обработчик моего меню. )

Посмотрю  WM_MEASUREITEM, что то похоже но не знаю...