Как убить чужое меню?

[SASHA 333]

Какую месагу послать в чужое приложение, чтобы наверняка убить в нем меню с кучей итемсов и субитемсов? У меня есть хэндлы меню и приложения. Функция DestroyMenu не срабатывает. Создаю свое новое меню и заменяю им чужое, но меня это не устраивает. Мне надо убить меню.

[Netscaper]

Код:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var Wnd : HWND;
begin
  Wnd := FindWindow(nil, PChar('Form1'));
  if (Wnd  0) then
  begin
    SetMenu(Wnd, 0);
  end;
end;

или



Код:

Код: Выделить всё

void killmenu()
{
  HWND wnd;
  wnd = FindWindow(NULL, "Form1");
  if (wnd != NULL)
  {
     SetMenu(wnd, (HMENU)0);
  }
}