Как убить чужое меню? - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Как убить чужое меню? (http://forum.oszone.net/showthread.php?t=43575)

SASHA 333

10-01-2005 00:46 287128

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

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

Netscaper

14-01-2005 00:23 288382

Код:

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

  }

}

Время: 05:27.