FindWindow() von WMP der in Hintergrund spielt !!!

[taktaky]

Wenn ich die Zeillen von unten nach oben Stück Stück lösche, dann wird das Fenster immer gefunden

wenn ich aber die Funktion von Microsoft dazu als letzte Zeille einbaue, dann wird das Fenster nicht gefunden

Delphi-Quellcode:

...
  const
...
WMP_MEDIA_STOP          = $D0000;
WMP_MEDIA_PLAY_PAUSE    = $E0000;

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
  HwndParent: HWND;
  HwndChildAfter: HWND;
  lpszClass: PChar;       // pointer to class name
  lpszWindow: PChar;       // pointer to window name

begin
  wnd := FindWindow('IEFrame','WMP - Microsoft Internet Explorer');
  wnd := FindWindowEx(wnd, 0, 'Shell DocObject View', nil);
  wnd := FindWindowEx(wnd, 0, 'Internet Explorer_Server', nil);
  wnd := FindWindowEx(wnd, 0, 'Internet Explorer_ActiveMovie', nil);
  wnd := FindWindowEx(wnd, 0, 'VideoRenderer', nil);
  wnd := FindWindowEx(HwndParent, HwndChildAfter, lpszClass, lpszWindow);
  if wnd <> 0 then
    Sendmessage(wnd, WM_APPCOMMAND, 0, WMP_MEDIA_PLAY_PAUSE)
    else
    ShowMessage('nicht gefunden');
  end;
end.

_________