end am ende des codes

[Saimen]

Der gesamte code der Unit1 ist:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, ExtCtrls, XPMan, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    XPManifest1: TXPManifest;
    Button1: TButton;
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;
    MediaPlayer2: TMediaPlayer;
    MediaPlayer3: TMediaPlayer;
    MediaPlayer4: TMediaPlayer;
    MediaPlayer5: TMediaPlayer;
    MediaPlayer6: TMediaPlayer;
    MediaPlayer7: TMediaPlayer;
    MediaPlayer8: TMediaPlayer;
    MediaPlayer9: TMediaPlayer;
    MediaPlayer10: TMediaPlayer;
    MediaPlayer11: TMediaPlayer;
    MediaPlayer12: TMediaPlayer;
    MediaPlayer13: TMediaPlayer;
    MediaPlayer14: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.open;
      mediaplayer1.play;
Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Mediaplayer1.Stop;
Mediaplayer2.Stop;
Mediaplayer3.Stop;
Mediaplayer4.Stop;
Mediaplayer5.Stop;
Mediaplayer6.Stop;
Mediaplayer7.Stop;
Mediaplayer8.Stop;
Mediaplayer9.Stop;
Mediaplayer10.Stop;
Mediaplayer11.Stop;
Mediaplayer12.Stop;
Mediaplayer13.Stop;
Mediaplayer14.Stop;
end;

end.

Der feler lautet:

Im Projekt Project1.exe ist einen Exception der Klasse EMCIDeviceError aufgetreten. Meldung:'Kein MCI-Gerät geöffnet.' Prozess wurde angehalten. Mit einzelne anweisung oder Start Fortsetzen.