Hallo liebe Gemeinde,

ich würde gerne mit Delphi eine .exe erstellen, womit der aktuell geöffnete WMP den Nächsten Track der Wiedergabeliste abspielt.
Leider hat mir die Forensuche nicht sehr viel geholfen. Ich habe etwas über SDK und so gelesen aber irgendwie brachte mir das alles nix.

WMP version 11
Windows XP

Hoffe ihr könnt mir helfen!

hi,
habe dir etwas zusammengebastelt

zusammenfalten · markieren

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.