Next Track bei WMP?

[ErazerZ]

hi,
habe dir etwas zusammengebastelt

Delphi-Quellcode:

{
  by ErazerZ
   Werte mittels Winspector herausgefunden.
  Vielleicht liegt es an meiner Logitech tastatur, musst du ausprobieren aber sollte auch so funktionieren,
  weil es nur eine WM_APPCOMMAND Nachricht an Windows Media Player sendet mit entsprechenden Parametern.
}

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, Messages;

const
   // wParam
   WMP_CONTROL = $405b6;
  // lParam
  WMP_PLAYPAUSE = $e0000;
  WMP_STOP = $d0000;

var
   hWMP: THandle;
begin
  hWMP := FindWindow('WMPlayerApp', 'Windows Media Player');
  if (hWMP <> 0) then
  begin
     // play/pause
    SendMessage(hWMP, WM_APPCOMMAND, WMP_CONTROL, WMP_PLAYPAUSE);
    // stop
    SendMessage(hWMP, WM_APPCOMMAND, WMP_STOP, WMP_PLAYPAUSE);
  end;
end.