我寫了一個播放器，是以文件的附屬檔來識別是用REAL或用windows media 來播放，我的電腦裡有幾個MPG的MTV，有的在REAL能放，有的在windows media 能放，如何能做到自動選擇windows media 或REAL。    還有如何得到RM的時間。    下面是我播放的程序： procedure TForm1.Image3Click(Sender: TObject); var Thelength:integer; begin MediaPlayer1.Close; RealAudio1.DoStop; if ListBox1.Items.Count<>0 then  begin  if ExtractFileExt(listbox1.Items.Strings[k])='.rm'then      begin         RealAudio1.source:=listbox1.Items.Strings[k];         label3.Caption:=listbox1.Items.Strings[k];         //Thelength:=Realaudio1.GetLength;         //label1.Caption:= IntToStr(thelength div 60000 div 60)+':'+IntToStr(thelength div 60000 mod 60)+':'+IntToStr(thelength div 1000 mod 60);         realaudio1.DoPlay;         form1.RealAudio1.SetControls('ImageWindow');         form1.RealAudio1.Visible:=True;         realaudio1.setfullscreen;         timer2.Enabled:=false;     end  else     begin        MediaPlayer1.FileName:=listbox1.Items.Strings[k];        label3.Caption:=listbox1.Items.Strings[k];        MediaPlayer1.Open;        Mediaplayer1.TimeFormat:=tfMilliseconds;        Thelength := Mediaplayer1.Length;        label1.Caption:= IntToStr(thelength div 60000 div 60)+':'+IntToStr(thelength div 60000 mod 60)+':'+IntToStr(thelength div 1000 mod 60);        d1:=(thelength div 60000 div 60 *3600)+(thelength div 60000 mod 60 *60)+(thelength div 1000 mod 60);        d2:=0;        mediaplayer1.Display:=Panel5;        panel5.Realign;        mediaplayer1.DoubleBuffered:=true;        mediaplayer1.DisplayRect:=rect(0,0,panel5.Width,panel5.Height);        timer2.Enabled:=true;        RealAudio1.Visible:=false;        mediaplayer1.Play;     end;  end; end;     ---------------- 局局棋盤步步新， 變化無常平常待。 人生相處平常心， 無憂無慮心事成。 ----------------