MediaPlayer wieder Freigeben

[Sunlight7]

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!