1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button2Click(Sender: TObject);
begin
if not OpenDialog1.Execute then exit;
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.AutoOpen := True;
MediaPlayer1.Hide;
MediaPlayer1.AutoRewind := True;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
var
  OpenDialog1: TOpenDialog;
begin
  OpenDialog1:=TOpenDialog.Create(Self);
  OpenDialog1.Filter:='MP3-Files|*.mp3';
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName:=OpenDialog1.FileName;
    MediaPlayer1.AutoOpen := True;
    MediaPlayer1.Hide;
    MediaPlayer1.AutoRewind := True;
    MediaPlayer1.Open;
   MediaPlayer1.Play;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Wert  Bedeutung

dtAutoSelect  Der Gerätetyp wird durch die Dateierweiterung bestimmt.
dtAVIVideo  AVI-Clip
dtCDAudio  Audio-CD
dtDAT          DAT-Datei
dtDigitalVideo  Digitale Videoaufnahme
dtMMMovie  MM-Aufnahme
dtOther          Medientyp, der nicht zu den anderen Kategorien gehört.
dtOverlay  Overlay
dtScanner  Scanner
dtSequencer  Sequencer
dtVCR          Videokassette
dtVideodisc  Bilddisc
dtWaveAudio  WAV-Datei                    

1:

Fehler: Kann keinen Gerätetyp aus dem angegebenen Dateityp ermittlen