Kein MCI-Gerät geöffnet - TMediaPlayer

[Bummi]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
 MusicPlayer : TMediaPlayer;
begin
MusicPlayer := TMediaPlayer.Create(self);// je nach wann und wie TForm2 erzeugt wird kann Form2 nil sein
MusicPlayer.Parent := Self;// s.0.
MusicPlayer.FileName := 'C:\Bummispicker\Wav_resource\4.wav';// voller Pfad
MusicPlayer.Open; // fehlte
MusicPlayer.Play();
end;