Zitat von
Gehstock:
...
die Buttons werden nur Enabled wenn du eine datei zugewiesen hast
mit MediaPLayer1.FileName := 'test.wav';
Ja das stimmt, aber wenn das Video startet werden zwar einige MPlayer-Buttons aktiviert
aber die Falsche !
Nur wenn ich noch einmal das Video über das Button Play erneut starte, dann werden die Button wie Pause und Stop auch aktiviert.
Die Frage warum beim 1. Start die Button Stop und pause nicht aktiviert werden?
sehe Anhang
--------
Hinweis : Diese Lösung ist nur wenn das Video als Externe Datei ist
Meine Hauptfrage, wie man das Video, daß das an exe gebunden ist (In Ressource) stoppen 
, da die MediaPlayer-Buttons in diesem Fall nicht geeignet sind, deswegen muß die Lösung anderes sein.
Mein Versuch war so aber leider hat nicht geklappt :
Delphi-Quellcode:
...
const APPCOMMAND_MEDIA_NEXTTRACK = $B0000;
APPCOMMAND_MEDIA_PREVIOUSTRACK = $C0000;
APPCOMMAND_MEDIA_STOP = $D0000;
APPCOMMAND_MEDIA_PLAY_PAUSE = $E0000;
implementation
{$R *.dfm}
{$R videos.res}
// das Video in Form1 suchen
procedure TForm1.Button4Click(Sender: TObject);
var
wnd: HWND;
begin
wnd := FindWindow('TForm1','Form1');
wnd := FindWindowEx(wnd, 0, 'TAnimate', nil);
if wnd <> 0 then
Sendmessage(wnd, WM_APPCOMMAND, 0, APPCOMMAND_MEDIA_PLAY_PAUSE)
else
ShowMessage('Nicht gefunden'); // diese Meldung wird nicht angezeigt. d.h. das Video wird gefunden aber kann man nicht steuern!!!
end;