برای باز کردن منو برنامه خود و فعال کردن گزینه مورد نظر در آن منو با استفاده از این روش امکان پذیر است

procedure TForm1.Button1Click(Sender: T);

  procedure DropMenuAndSelectItem(MainMenuItemIndex,ItemIndex:integer);
  var
    n : integer;
  begin
    //Activate MainMenu
    keybd_event( VK_MENU, Mapvirtualkey( VK_MENU, 0 ), 0, 0 );
    keybd_event( VK_MENU, Mapvirtualkey( VK_MENU, 0 ), KEYEVENTF_KEYUP, 0 );

    keybd_event( VK_RETURN, MapVirtualKey( VK_RETURN, 0), 0, 0 );
    keybd_event( VK_RETURN, MapVirtualKey( VK_RETURN, 0), KEYEVENTF_KEYUP, 0 );

    //Select MainMenuItem
    while (MainMenuItemIndex>0) do begin
      keybd_event( VK_RIGHT, MapVirtualKey( VK_RIGHT, 0), 0, 0 );
      keybd_event( VK_RIGHT, MapVirtualKey( VK_RIGHT, 0), KEYEVENTF_KEYUP, 0 );
      Dec(MainMenuItemIndex);
    end;

    //Select SubItem
    while (ItemIndex>0) do begin
      keybd_event( VK_DOWN, MapVirtualKey( VK_DOWN, 0), 0, 0 );
      keybd_event( VK_DOWN, MapVirtualKey( VK_DOWN, 0), KEYEVENTF_KEYUP, 0 );
      Dec(ItemIndex);
    end;
  end;
begin
  //Drop and select third item of the first MainMenuItem
  DropMenuAndSelectItem(0,2);
end;