Videos mit dem Form Animate1.ResName

[taktaky]

Zitat:

Zitat von Gehstock

...

die Buttons werden nur Enabled wenn du eine datei zugewiesen hast

mit

Delphi-Quellcode:

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 :gruebel: , 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;