[Snake22]

стоит задача нажать из моей проги пункт всплывающего меню в другой проге.Не главного меню.
нашел в инете пример как нажать пункт главного меню. а про PopupMenu нигде ни слова.
Как то можно его нажать?
и ещё я незнаю как оно создаётся,каждый раз при нажатии,или же один раз при создании формы..
Вот пример нажатия пунтка главного меню.

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
    Wd,aaa : HWnd;
    i:integer;
    buf,Nm: array [0..255] of Char;
    PID: dword;
begin
Wd:=FindWindow(0,0); //ищем дескриптор нужной программы по части имени класса
While (Wd<>0) do
    Begin
        GetClassName(wd,@buf,100);    
        if (pos('тут имя класса искомой проги',AnsiLowerCase(buf))>0) 
         then
        begin
          //GetWindowThreadProcessId(wd, @PID);
          //GetWindowText(Wd,Nm,255);      
          aaa:=GetMenu(wd);//получаем хендл главного меню
          aaa:=GetSubMenu(aaa,0); //хендл подменю
          i:=GetMenuItemID(aaa,0); //получаем id нужного нам пункта меню
          //ShowMessage(IntToStr(i));
          PostMessage(wd,WM_COMMAND,i,0); //посылаем команду нажатия пунтку меню
          //ShowMessage(IntToStr(aaa));
          break; 
          end;
        Application.ProcessMessages;         // Дадим возможность поработать другим
        Wd:=GetNextWindow(Wd,GW_HWNDNEXT);   // Найдем следующее окно в системе.
    End;

end;