Mal wieder Video?!

[Blackheart]

Delphi-Quellcode:

procedure TForm1.OeffnenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
  MediaPlayer1.FileName := OpenDialog1.FileName; 
  MediaPlayer1.Display:=Panel1;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  end;
end;