Zitat von
DeddyH:
Sorry, da muss ich passen, nicht meine Materie.
Hallo Deddy
ich habe diese Information mit Hilfe von WinSpay :
[Edit]Siehe Anhang[/Edit]
So habe ich so versucht :
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.
Woran liegt das Problem?!
Gruß
-------------------
_________________________
[edit=SirThornberry] Mfg, SirThornberry[/edit]