Windows Media Player HotKeys

[Gumer]

Пишу программу с горячими клавишами для Windows Media Player.
Делаю это, как написано в этой теме:

procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
begin
h:=findwindow('WMPlayerApp',nil);
//sendmessage(h,wm_command,$4979,0);//Стоп
//sendmessage(h,wm_command,$4978,0);//Play/pause
//sendmessage(h,wm_command,$497B,0);//Следующая песня
//sendmessage(h,wm_command,$497A,0);//Предыдущая
//sendmessage(h,wm_command,$497D,0);//Промотать вперед
end;

В данном примере отправляются сообщения wm_command, а мне нужно еще отправить такое вот сообщение:
message: 0x800C[User-defined:WM_USER+31756] wParam:00000000 iParam:00000000


sendmessage (h, wm_user+31756, 0, 0); - не работает

[Пепел Феникса]

там Post или Send?
вообще так PostMessage(h,$800C,0,0);//или send (тогда я оттолкнулся от WM_USER...но видимо не помогло...попробуйте так)

[Gumer]

Ни post, ни send не работают.

[Пепел Феникса]

а как вы проверяете работает или нет?

[Gumer]

Включаю WMP и нажимаю на нужную клавишу. В wmp должна измениться скорость проигрывания (увеличиться).

Вот что выдает Spy++, когда я нажимаю на кнопку перемотки в windows media player:

[Пепел Феникса]

message:WM_COMMAND
wParam:$4994
lParam:0
Низкая скорость

message:WM_COMMAND
wParam:$4993
lParam:0
нормальная скорость

message:WM_COMMAND
wParam:$4992
lParam:0
увеличенная скорость

все команды из меню.

а насчет ползунка то там гораздо сложнее.

[Gumer]

Да, про комманды из меню я знаю, но там нет возможности увеличить в 5 раз скорость проигрывания.

Понажимал на кнопку в самом проигрывателе, а потом на свою горячую клавишу и смотрел, как будет реагировать spy++.

Тут 2 нажатия на кнопку перемотки и одно нажатие на горячую клавишу:


еще раз с корявыми выделениями:



Как я понимаю, поссылки одного сообщения мало, но я не знаю какие из четырех других нужные, а какие будут мешаться и как грамотно их послать через delphi.

[Пепел Феникса]

вообще там сообщение должно отсчитыватся от WM_APP
и оно означает что значение поменяли(или пытались это сделать)..и не более.

[Gumer]

Так как мне быть?