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

[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);
}
}