[Страдалецъ]

Видимо речь идет не о плеере, а о кнопках расширенной клавиатуре которых теперь стало много. Вам просто надо узнать код который привязан к нужной кнопке, ну а это просто:

Код:

procedure TForm5.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Key <> 0 then ShowMessage(IntToStr(Key))
end;

Ну и послать сообщение с таким кодом соотвественно можно так:

Код:

procedure TForm5.PlayClick(Sender: TObject);
begin
 Keybd_Event(179, 0, 0, 0);
 Keybd_Event(179, 0, KEYEVENTF_KEYUP, 0);
end;

procedure TForm5.StopClick(Sender: TObject);
begin
 Keybd_Event(178, 0, 0, 0);
 Keybd_Event(178, 0, KEYEVENTF_KEYUP, 0);
end;