MediaPlayer1.Wait := True;
MediaPlayer1.FileName := 'c:\ProbniFilm1.avi';
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.DisplayRect :=Panel1.ClientRect;
> kako da uradim da kad se jedna datoteka zavrsi ide druga odmah za njom
> 'ProbniFilm1.avi'
> 'ProbniFilm2.avi'
Napraviš proceduru kojoj prepustiš taj zadatak:
procedure PustiFilm(const AFilmPath: string);
begin
MediaPlayer1.Wait := True;
MediaPlayer1.FileName := AFilmPath;
....
end;
I pozoveš je:
PustiFilm('Film1.avi');
PustiFilm('Film2.avi');