[Ama]

Доброе время суток! Создал программку для управления плеером, просто сочетаниями клавиш заменяю кнопки мультимедийной клавиатуры. Сочетания зарегистрировал в системе как глобальные. Все сочетания регистрируются, создал метод WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY. В ней вызываю процу

Код:

procedure TMSCForm2.Mykeybd_event(wParam: word; lParam: LongInt);
 begin
  PlayerWnd:= HWND_BROADCAST;
  SendMessage(PlayerWnd, WM_KEYDOWN, wParam, lParam);
  SendMessage(PlayerWnd, WM_KEYUP, wParam, lParam);
 end;

Где wParam одно из следующих значений:

Код:

const
       VK_LAUNCH_MEDIA_SELECT    = $B5    {181};
       VK_VOLUME_MUTE            = $AD    {173};
       VK_VOLUME_DOWN            = $AE    {174};
       VK_VOLUME_UP              = $AF    {175};
       VK_MEDIA_PREV_TRACK       = $B1    {177};
       VK_MEDIA_NEXT_TRACK       = $B0    {176};
       VK_MEDIA_PLAY_PAUSE       = $B3    {179};
       VK_MEDIA_STOP             = $B2    {178};

Но почему-то не работает имитация нажатия VK_VOLUME_MUTE, VK_VOLUME_DOWN, VK_VOLUME_UP.