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);