Hallo!
Wenn ich Compile und der MediaPlayer den Sound
abspielen soll kommt immer dierekt folgende Fehlermeldung.
Zitat:
Projekt Start.exe raised
exception class EMCIDeviceError with
message 'No MCI device open'. Process stopped.
Use step or retun to cotinue.
Ich hab folgenden Code verwendet.
Code:
procedure TForm1.FormActivate(Sender: TObject);
begin
MediaPlayer.AutoOpen := true;
MediaPlayer.FileName := 'start.mid';
MediaPlayer.Play;
end;