得到一个wma或mp3文件，如何用最简单的方法得到它的长度信息呢？

得到一个wma或mp3文件，如何用最简单的方法得到它的长度信息呢？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061108195617169.html
不需要知道歌手名专辑名等，只要长度即可，哪个指令可以做到呢？请给一点代码，万分感谢帮忙的兄弟！

uses   MMSystem;  
   
  var  
      OpenParms:   TMCI_Open_Parms;  
      StatusParm:   TMCI_Status_Parms;  
  begin  
      OpenParms.lpstrDeviceType   :=   '';  
      OpenParms.lpstrElementName   :=   'c:\1.mp3';  
      mciSendCommand(0,   MCI_OPEN   ,MCI_OPEN_ELEMENT,   Longint(@OpenParms));  
      StatusParm.dwItem   :=   mci_Status_Length;  
      mciSendCommand(OpenParms.wDeviceID,   MCI_STATUS,   MCI_STATUS_ITEM   ,   Longint(@StatusParm));  
      ShowMessage(IntToStr(StatusParm.dwReturn)+'毫秒');  
  end;

多谢这位仁兄，我看到有的地方说用mediaplayer的length属性也可以，不知哪个好些，而且如果mp3的采样率不是恒定的话，用这种方法可行吗？

汗，我是参考Mediaplayer的Length属性实现代码才写出上面那一段的，实质都是一样的方法。