ja okay habe einfach ne tmediaplayercompo auf vorm gesetzt und autorewind auf true gemacht damit das video immer weiterläuft. nun irgendwann bleibt die exe hängen.
hier mal ein codesnipsel
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
mediaplayer1.Play;
panel1.Align:=alclient;
borderstyle:=bsnone;
end;
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if mediaplayer1.AutoRewind then mediaplayer1.Position:=0;
mediaplayer1.Play;
end;