Programm beenden über Programm

[taktaky]

Hallo,

ich habe das gleiche Problem,

ich möchte nicht ein Programm beenden sondern ein Video stoppen.

Das Video wird mit Windows Media Player in Internet Explorer aber in Hintergrund gespielt.

Mit dem WinSpy zeigt mir die Information von dem Video :


http://members.lycos.co.uk/forforums...ebbrowser1.jpg

Es musste eigentlich mit dem Code funktionieren aber leider nicht ! :

Delphi-Quellcode:

const
{Windows Media Player API}
...
WMP_MEDIA_PLAY_PAUSE    = $E0000;

procedure TForm1.Button1Click(Sender: TObject);
var myHandle:HWND;
begin
//myHandle := 331038;
//myHandle := FindWindow(nil, 'ActiveMovieWindow'); // über seinen Titel finden
//myHandle := FindWindow('VideoRenderer', 'ActiveMovieWindow'); // über seinen Klassennamen finden
//myHandle := FindWindow('WMPlayerApp', 'Windows Media Player'); // über seinen Classname finden
if myHandle <> 0 then
  Sendmessage(myHandle, WM_APPCOMMAND, 0, WMP_MEDIA_STOP)

  else
  ShowMessage('Nicht gefunden');

end;

end.

Wie kann man das Fenster von WMP finden?

Hier ist ein Demo (ein Video in HTML-Seite) in diesem Art (besser die Seite mit Internet Explorer öffnen) :
Demo (Video) versteckt


----------