ich hab das jez so gemacht:
Delphi-Quellcode:
var
Filename: String;
begin
OpenDialog1.Execute;
Filename := OpenDialog1.Filename;
try
MediaPlayer1.Close;
MediaPlayer1.Filename := Filename;
MediaPlayer1.Open;
except
ShowMessage('Fehler');
end;
end;
aber es passiert immernoch das gleiche und die messegebox kommt nicht!