procedure TForm1.Button1Click(Sender: TObject); begin WindowsMediaPlayer1.URL :='C:\Ma_Video.avi'; end;
procedure TForm1.WindowsMediaPlayer1StatusChange(Sender: TObject); begin if WindowsMediaPlayer1.Status = 'Arrêté' then WindowsMediaPlayer1.Visible := False; if WindowsMediaPlayer1.Status = 'Ouverture du média en cours...' then WindowsMediaPlayer1.Visible := True; end;