Windows Media Player in andrem Programm steuern

[Billi Berserker]

Kommt auf den player an der den Film abspielt und ob dieser eine entsprechende API (message, interface,...) exportiert mit dem er sich steuern läßt.

Beim Windows Media Player lassen sich die grundlegenden funktionen per window messages steuern.

Delphi-Quellcode:

const
  147     {Windows Media Player API}
  148   WMP_VOLUME_MUTE         = $80000;
  149   WMP_VOLUME_DOWN         = $90000;
  150   WMP_VOLUME_UP           = $a0000;
  151   WMP_MEDIA_NEXTTRACK     = $B0000;
  152   WMP_MEDIA_PREVIOUSTRACK = $C0000;
  153   WMP_MEDIA_STOP          = $D0000;
  154   WMP_MEDIA_PLAY_PAUSE    = $E0000;

[...]

  286 function GetWMPHandle : hwnd;
  287 begin
  288   result := FindWindow('WMPlayerApp', nil);
  289   result := FindWindowEx(result, 0, 'WMPAppHost', 'WMPAppHost');
  290   if result = 0 then result := Findwindow(nil,'Windows Media Player');
  291 end;

[...]

  wnd := GetWMPHandle;
  if wnd <> 0 then SendMessage(wnd,WM_APPCOMMAND,0,WMP_MEDIA_PLAY_PAUSE);