Moin!
Eine Möglichkeit:
Delphi-Quellcode:
If MediaPlayer1.FileName<>'' then begin
MediaPlayer1.Close;
MediaPlayer1.FileName:='';
end;
Alternativ kannst Du
TMediaPlayer.Mode verwenden und prüfen, ob der MP geöffnet ist und ihn nur dann schließen.
Delphi-Quellcode:
Case Medialayer1.Mode of
mpNotReady,
mpStopped,
mpPlaying,
mpRecording,
mpSeeking,
mpPaused,
mpOpen: Medialayer1.Close;
else ShowMessage('Der MP hatte nix geöffnet.');
end;
@Gausi:
Shareable ist dazu da, das ein MCI-Gerät (zb CD), von mehreren Instanzen benutzt werden kann.
Grüßle!