WindowsMediaPlayer controls

WINDOWSMEDIAPLAYER KONTROLU

procedure TForm1.MediaFile1Click(Sender: TObject);
var filename:string;
begin
if opendialog1.execute then
begin
WindowsMediaPlayer1.URL:=ExtractFilePath(Application.ExeName)+Opendialog1.filename;
WindowsMediaPlayer1.controls.play;
WindowsMediaPlayer1.url:=Opendialog1.FileName;
end;
end;

//URL adresinden açma:
windowsMediaPlayer1.URL := ('http://www.gotradio.com/player/launch.asp?refer=web&id=72&cr=48');

//şarkı adını + sanatçı adını alma:
WindowsMediaPlayer1.currentMedia.name;

//Şarkının uzunluğunu:
WindowsMediaPlayer1.currentMedia.durationString;

//Çalma listesini veya albüm adı:
WindowsMediaPlayer1.currentPlaylist.name;

//Durum bilgisi:
WindowsMediaPlayer1.status;

//Dosyanın yolu:
WindowsMediaPlayer1.DefaultInterface.URL;

gibi...