[Qwed86]

Ну что-то нашёл

Код:

function TForm1.GetWMPHandle: hwnd;
begin
 result := FindWindow('WMPlayerApp', nil); 
 result := FindWindowEx(result, 0, 'WMPAppHost', 'WMPAppHost');
 if result = 0 then result := Findwindow(nil,'Windows Media Player');
end;

//На бутон или имя клавиши
var wnd:hwnd;
begin
 wnd := GetWMPHandle;
 if wnd <> 0 then SendMessage(wnd,WM_APPCOMMAND,0,$B0000);
end;

{Windows Media Player API}
WMP_VOLUME_MUTE = $80000;
WMP_VOLUME_DOWN = $90000;
WMP_VOLUME_UP = $a0000;
WMP_MEDIA_NEXTTRACK = $B0000;
WMP_MEDIA_PREVIOUSTRACK = $C0000;
WMP_MEDIA_STOP = $D0000;
WMP_MEDIA_PLAY_PAUSE = $E0000;

Но это работает только если прога имеет фокус, а как теперь сделать чтоб это работало независимо от активного на данный момент приложения?
Т.е. например на VK_NUMPAD0 переключался трек?