[aha]

но может быть надо по другому делать ?

Код:

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
Application.ProcessMessages;
{Alt Key Down}
keybd_Event(VK_MENU, 0, 0, 0);
{F Key Down - Drops the menu down}
keybd_Event(ord('2'), 0, 0, 0); //меню к примеру имеет caption=2
{F Key Up}
keybd_Event(ord('2'), 0, KEYEVENTF_KEYUP, 0);

   keybd_event(BYTE(40), 0, 0, 0);
   keybd_event(BYTE(40), 0, KEYEVENTF_KEYUP, 0);

   keybd_event(BYTE(40), 0, 0, 0);
   keybd_event(BYTE(40), 0, KEYEVENTF_KEYUP, 0);//lдважды нажимаю на курсор вниз , чтобы выделить нужный пункт меню 

{Alt Key Up}
keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
{F Key Down}
end;

Admin: Пользуемся тегами!



И еще заметил данный метод не подходит в случае если меню написано кириллицей, как у меня - с File прокатит , а с Файл не работает .. (((